Mercurial > emacs
comparison lisp/array.el @ 11591:5f3aa9df448e
(array-mode): Use force-mode-line-update.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 25 Apr 1995 22:33:13 +0000 |
| parents | e64f012944e0 |
| children | cb0d1b1782f4 |
comparison
equal
deleted
inserted
replaced
| 11590:97a90e900ce7 | 11591:5f3aa9df448e |
|---|---|
| 882 (make-local-variable 'respect-tabs) | 882 (make-local-variable 'respect-tabs) |
| 883 (setq respect-tabs nil) | 883 (setq respect-tabs nil) |
| 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) |
| 894 (use-local-map array-mode-map) | 891 (use-local-map array-mode-map) |
| 895 (run-hooks 'array-mode-hook)) | 892 (run-hooks 'array-mode-hook)) |