From d3a4a9867717ddd6daeb6ab576a600c628c9f040 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Apr 1995 22:24:57 +0000 Subject: [PATCH] (te-edit, te-more-break-unwind): Use force-mode-line-update. (te-update-pending-output-display): Use force-mode-line-update. --- lisp/terminal.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/terminal.el b/lisp/terminal.el index 04ed04ba811..6dbd10a2a85 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -499,7 +499,7 @@ together with a command \\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 \\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) -- 2.39.5