Mercurial > emacs
changeset 11570:f210b0ee984a
(term-update-mode-line, term-process-pager): Use force-mode-line-update.
(term-pager-continue): Use force-mode-line-update.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 25 Apr 1995 22:25:25 +0000 |
| parents | a2b107c4f2f1 |
| children | 771bd7ddd4cc |
| files | lisp/term.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 "")