mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(picture-set-motion, picture-mode-exit): Use force-mode-line-update.

Browse Source
This commit is contained in:
Karl Heuer 1995-04-25 22:26:54 +00:00
parent cde6342073
commit 00dbaf0a51
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/picture.el
View File

@ -159,9 +159,7 @@ The mode line is updated to reflect the current direction."
(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 @@ With no argument strips whitespace from end of every line in Picture buffer
(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."