Mercurial > emacs
changeset 11574:a956f12b250f
(picture-set-motion, picture-mode-exit): Use force-mode-line-update.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 25 Apr 1995 22:26:54 +0000 |
| parents | 4ad650d4a65b |
| children | 090333911dc8 |
| files | lisp/textmodes/picture.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/picture.el Tue Apr 25 22:26:42 1995 +0000 +++ b/lisp/textmodes/picture.el Tue Apr 25 22:26:54 1995 +0000 @@ -159,9 +159,7 @@ (format "Picture:%s" (car (nthcdr (+ 1 (% horiz 2) (* 3 (1+ (% vert 2)))) '(nw up ne left none right sw down se))))) - ;; Kludge - force the mode line to be updated. Is there a better - ;; way to this? - (set-buffer-modified-p (buffer-modified-p)) + (force-mode-line-update) (message "")) (defun picture-move () @@ -630,9 +628,7 @@ (setq major-mode picture-mode-old-major-mode) (kill-local-variable 'tab-stop-list) (setq truncate-lines picture-mode-old-truncate-lines) - ;; Kludge - force the mode line to be updated. Is there a better - ;; way to do this? - (set-buffer-modified-p (buffer-modified-p)))) + (force-mode-line-update))) (defun picture-clean () "Eliminate whitespace at ends of lines."