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

(array-mode): Use force-mode-line-update.

Browse Source
This commit is contained in:
Karl Heuer 1995-04-25 22:33:13 +00:00
parent ba90138812
commit a838308c4c
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/array.el
View File

@ -884,10 +884,7 @@ Entering array mode calls the function `array-mode-hook'."
(array-init-local-variables)
(setq major-mode 'array-mode)
(setq mode-name "Array")
;; Update mode-line.
(progn (save-excursion (set-buffer (other-buffer)))
(set-buffer-modified-p (buffer-modified-p))
(sit-for 0))
(force-mode-line-update)
(make-variable-buffer-local 'truncate-lines)
(setq truncate-lines t)
(setq overwrite-mode t)