diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:33:13 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:33:13 +0000 |
| commit | a838308c4ca80395e623e4d24de12d376b08cada (patch) | |
| tree | 0639e042c573b082e0191b35ca3151209aca05f3 /lisp/array.el | |
| parent | ba90138812d08f189516616c2bbb793c896f7275 (diff) | |
| download | emacs-a838308c4ca80395e623e4d24de12d376b08cada.tar.gz | |
(array-mode): Use force-mode-line-update.
Diffstat (limited to 'lisp/array.el')
| -rw-r--r-- | lisp/array.el | 5 |
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) |