From a838308c4ca80395e623e4d24de12d376b08cada Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Apr 1995 22:33:13 +0000 Subject: [PATCH] (array-mode): Use force-mode-line-update. --- lisp/array.el | 5 +---- 1 file changed, 1 insertion(+), 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) -- 2.11.4.GIT