changeset 11591:5f3aa9df448e

(array-mode): Use force-mode-line-update.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Apr 1995 22:33:13 +0000
parents 97a90e900ce7
children 030e5a06a38a
files lisp/array.el
diffstat 1 files changed, 1 insertions(+), 4 deletions(-) [+]
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)