Mercurial > emacs
comparison lisp/array.el @ 62715:d07ea6e0706b
(array-mode): Use kill-all-local-variables and run-mode-hooks.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Thu, 26 May 2005 12:16:05 +0000 |
| parents | 2c228409c44d |
| children | 6fb026ad601f 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62714:ec0621e2b94f | 62715:d07ea6e0706b |
|---|---|
| 870 \\[array-display-local-variables] Display the current values of local variables. | 870 \\[array-display-local-variables] Display the current values of local variables. |
| 871 | 871 |
| 872 Entering array mode calls the function `array-mode-hook'." | 872 Entering array mode calls the function `array-mode-hook'." |
| 873 | 873 |
| 874 (interactive) | 874 (interactive) |
| 875 (kill-all-local-variables) | |
| 875 ;; Number of rows in the array. | 876 ;; Number of rows in the array. |
| 876 (make-local-variable 'array-max-row) | 877 (make-local-variable 'array-max-row) |
| 877 ;; Number of columns in the array. | 878 ;; Number of columns in the array. |
| 878 (make-local-variable 'array-max-column) | 879 (make-local-variable 'array-max-column) |
| 879 ;; Number of array columns per line. | 880 ;; Number of array columns per line. |
| 905 (force-mode-line-update) | 906 (force-mode-line-update) |
| 906 (make-local-variable 'truncate-lines) | 907 (make-local-variable 'truncate-lines) |
| 907 (setq truncate-lines t) | 908 (setq truncate-lines t) |
| 908 (setq overwrite-mode 'overwrite-mode-textual) | 909 (setq overwrite-mode 'overwrite-mode-textual) |
| 909 (use-local-map array-mode-map) | 910 (use-local-map array-mode-map) |
| 910 (run-hooks 'array-mode-hook)) | 911 (run-mode-hooks 'array-mode-hook)) |
| 911 | 912 |
| 912 | 913 |
| 913 | 914 |
| 914 ;;; Initialization functions. These are not interactive. | 915 ;;; Initialization functions. These are not interactive. |
| 915 | 916 |