(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
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")
(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 "")