# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848697 0
# Node ID a2b107c4f2f15909b273684cd1dbcb629fdcbdfa
# Parent  9b2265dc03a6ba13b372830571b03c2a57af4eab
(te-edit, te-more-break-unwind): Use force-mode-line-update.
(te-update-pending-output-display): Use force-mode-line-update.

diff -r 9b2265dc03a6 -r a2b107c4f2f1 lisp/terminal.el
--- 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)