1 files changed, 1 insertions, 4 deletions

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)