Mercurial > emacs

diff lisp/array.el @ 11591:5f3aa9df448e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(array-mode): Use force-mode-line-update.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Apr 1995 22:33:13 +0000
parents e64f012944e0
children cb0d1b1782f4
line wrap: on
line diff
--- a/lisp/array.el	Tue Apr 25 22:32:49 1995 +0000
+++ b/lisp/array.el	Tue Apr 25 22:33:13 1995 +0000
@@ -884,10 +884,7 @@
   (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)