Mercurial > emacs
changeset 11569:a2b107c4f2f1
(te-edit, te-more-break-unwind): Use force-mode-line-update.
(te-update-pending-output-display): Use force-mode-line-update.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 25 Apr 1995 22:24:57 +0000 |
| parents | 9b2265dc03a6 |
| children | f210b0ee984a |
| files | lisp/terminal.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/terminal.el Tue Apr 25 22:24:40 1995 +0000 +++ b/lisp/terminal.el Tue Apr 25 22:24:57 1995 +0000 @@ -499,7 +499,7 @@ "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 @@ (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 @@ (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)