mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

(te-edit, te-more-break-unwind): Use force-mode-line-update.

Browse Source 
(te-update-pending-output-display): Use force-mode-line-update.
This commit is contained in:
Karl Heuer 1995-04-25 22:24:57 +00:00
parent ffedf987d7
commit d3a4a98677
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/terminal.el
View File

@ -499,7 +499,7 @@ together with a command \\<terminal-edit-map>to return to terminal emulation: \\
"Start editing the terminal emulator buffer with ordinary Emacs commands."
(interactive)
(terminal-edit-mode)
(set-buffer-modified-p (buffer-modified-p))
(force-mode-line-update)
;; Make mode line update.
(if (eq (key-binding "\C-c\C-c") 'terminal-cease-edit)
(message "Editing: Type C-c C-c to return to Terminal")
@ -589,7 +589,7 @@ together with a command \\<terminal-edit-map>to return to terminal emulation: \\
(set-process-filter te-process te-more-old-filter)
(goto-char te-more-old-point)
(setq mode-line-format te-more-old-mode-line-format)
(set-buffer-modified-p (buffer-modified-p))
(force-mode-line-update)
(let ((buffer-read-only nil))
(cond ((eobp))
(terminal-more-break-insertion
@ -993,8 +993,7 @@ move to start of new line, clear to end of line."
(setq te-pending-output-info "")
(setq te-pending-output-info (format "(%dK chars output pending) "
(/ (+ length 512) 1024))))))
;; update mode line
(set-buffer-modified-p (buffer-modified-p)))
(force-mode-line-update))
(defun te-sentinel (process message)