diff options
| author | Karl Heuer <[email protected]> | 1995-04-25 22:24:57 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1995-04-25 22:24:57 +0000 |
| commit | d3a4a9867717ddd6daeb6ab576a600c628c9f040 (patch) | |
| tree | 37dffb43f10b25ef82bbb51fe1f4ecdbb2301e1d /lisp/terminal.el | |
| parent | ffedf987d7259afb92bed3f8b17499f6297af86f (diff) | |
(te-edit, te-more-break-unwind): Use force-mode-line-update.
(te-update-pending-output-display): Use force-mode-line-update.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/terminal.el b/lisp/terminal.el index 04ed04ba81..6dbd10a2a8 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -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) |