From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:33:13 +0000 (+0000)
Subject: (array-mode): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4267
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a838308c4ca80395e623e4d24de12d376b08cada;p=emacs.git

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

diff --git a/lisp/array.el b/lisp/array.el
index 0730e1e7d0c..96f98e2e71e 100644
--- a/lisp/array.el
+++ b/lisp/array.el
@@ -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)