# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798849193 0
# Node ID 5f3aa9df448e39c3838abe792d5aca63c5721d61
# Parent  97a90e900ce7a8b104d3594106d67e5f9cd66901
(array-mode): Use force-mode-line-update.

diff -r 97a90e900ce7 -r 5f3aa9df448e lisp/array.el
--- 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)