diff options
| author | Karl Heuer | 1995-04-25 22:33:13 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-04-25 22:33:13 +0000 |
| commit | a838308c4ca80395e623e4d24de12d376b08cada (patch) | |
| tree | 0639e042c573b082e0191b35ca3151209aca05f3 /lisp/array.el | |
| parent | ba90138812d08f189516616c2bbb793c896f7275 (diff) | |
| download | emacs-a838308c4ca80395e623e4d24de12d376b08cada.tar.gz emacs-a838308c4ca80395e623e4d24de12d376b08cada.zip | |
(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'." | |||
| 884 | (array-init-local-variables) | 884 | (array-init-local-variables) |
| 885 | (setq major-mode 'array-mode) | 885 | (setq major-mode 'array-mode) |
| 886 | (setq mode-name "Array") | 886 | (setq mode-name "Array") |
| 887 | ;; Update mode-line. | 887 | (force-mode-line-update) |
| 888 | (progn (save-excursion (set-buffer (other-buffer))) | ||
| 889 | (set-buffer-modified-p (buffer-modified-p)) | ||
| 890 | (sit-for 0)) | ||
| 891 | (make-variable-buffer-local 'truncate-lines) | 888 | (make-variable-buffer-local 'truncate-lines) |
| 892 | (setq truncate-lines t) | 889 | (setq truncate-lines t) |
| 893 | (setq overwrite-mode t) | 890 | (setq overwrite-mode t) |