# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848725 0
# Node ID f210b0ee984a428f3812ee07cb125a46e0a8809b
# Parent  a2b107c4f2f15909b273684cd1dbcb629fdcbdfa
(term-update-mode-line, term-process-pager): Use force-mode-line-update.
(term-pager-continue): Use force-mode-line-update.

diff -r a2b107c4f2f1 -r f210b0ee984a lisp/term.el
--- a/lisp/term.el	Tue Apr 25 22:24:57 1995 +0000
+++ b/lisp/term.el	Tue Apr 25 22:25:25 1995 +0000
@@ -770,7 +770,7 @@
 	(if (term-in-char-mode)
 	    (if (term-pager-enabled) '(": char page %s") '(": char %s"))
 	  (if (term-pager-enabled) '(": line page %s") '(": line %s"))))
-  (set-buffer-modified-p (buffer-modified-p))) ;; Force mode line update.
+  (force-mode-line-update))
 
 (defun term-check-proc (buffer)
   "True if there is a process associated w/buffer BUFFER, and
@@ -2545,7 +2545,7 @@
 	      mode-line-buffer-identification
 	      " [Type ? for help] "
 	      "%-"))
-  (set-buffer-modified-p (buffer-modified-p))) ;;No-op, but updates mode line.
+  (force-mode-line-update))
 
 (defun term-pager-line (lines)
   (interactive "p")
@@ -2658,7 +2658,7 @@
     (use-local-map term-pager-old-local-map)
     (setq term-pager-old-local-map nil)
     (setq mode-line-format term-old-mode-line-format)
-    (set-buffer-modified-p (buffer-modified-p)) ;; Updates mode line.
+    (force-mode-line-update)
     (setq term-pager-count new-count)
     (set-process-filter process term-pager-old-filter)
     (funcall term-pager-old-filter process "")