diff options
| author | Stefan Kangas | 2020-12-08 08:20:40 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2020-12-08 08:52:42 +0100 |
| commit | 0d6fca30937c91b64c5626b5ea1ef4629de3c1eb (patch) | |
| tree | da9a4c6a0d603666adb63bb9139169a9e6eff4f8 /lisp/array.el | |
| parent | 478368ad4fe43b02b8a7e91c7dbec1ac1afc4d68 (diff) | |
| download | emacs-0d6fca30937c91b64c5626b5ea1ef4629de3c1eb.tar.gz emacs-0d6fca30937c91b64c5626b5ea1ef4629de3c1eb.zip | |
* lisp/array.el (array-mode): Prefer setq-local.
Diffstat (limited to 'lisp/array.el')
| -rw-r--r-- | lisp/array.el | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lisp/array.el b/lisp/array.el index 0d1ac74432b..0ad565b5bc7 100644 --- a/lisp/array.el +++ b/lisp/array.el | |||
| @@ -863,25 +863,25 @@ Entering array mode calls the function `array-mode-hook'." | |||
| 863 | (make-local-variable 'array-row) | 863 | (make-local-variable 'array-row) |
| 864 | (make-local-variable 'array-column) | 864 | (make-local-variable 'array-column) |
| 865 | (make-local-variable 'array-copy-string) | 865 | (make-local-variable 'array-copy-string) |
| 866 | (set (make-local-variable 'array-respect-tabs) nil) | 866 | (setq-local array-respect-tabs nil) |
| 867 | (set (make-local-variable 'array-max-row) | 867 | (setq-local array-max-row |
| 868 | (read-number "Number of array rows: ")) | 868 | (read-number "Number of array rows: ")) |
| 869 | (set (make-local-variable 'array-max-column) | 869 | (setq-local array-max-column |
| 870 | (read-number "Number of array columns: ")) | 870 | (read-number "Number of array columns: ")) |
| 871 | (set (make-local-variable 'array-columns-per-line) | 871 | (setq-local array-columns-per-line |
| 872 | (read-number "Array columns per line: ")) | 872 | (read-number "Array columns per line: ")) |
| 873 | (set (make-local-variable 'array-field-width) | 873 | (setq-local array-field-width |
| 874 | (read-number "Field width: ")) | 874 | (read-number "Field width: ")) |
| 875 | (set (make-local-variable 'array-rows-numbered) | 875 | (setq-local array-rows-numbered |
| 876 | (y-or-n-p "Rows numbered? ")) | 876 | (y-or-n-p "Rows numbered? ")) |
| 877 | (set (make-local-variable 'array-line-length) | 877 | (setq-local array-line-length |
| 878 | (* array-field-width array-columns-per-line)) | 878 | (* array-field-width array-columns-per-line)) |
| 879 | (set (make-local-variable 'array-lines-per-row) | 879 | (setq-local array-lines-per-row |
| 880 | (+ (floor (1- array-max-column) array-columns-per-line) | 880 | (+ (floor (1- array-max-column) array-columns-per-line) |
| 881 | (if array-rows-numbered 2 1))) | 881 | (if array-rows-numbered 2 1))) |
| 882 | (message "") | 882 | (message "") |
| 883 | (force-mode-line-update) | 883 | (force-mode-line-update) |
| 884 | (set (make-local-variable 'truncate-lines) t) | 884 | (setq-local truncate-lines t) |
| 885 | (setq overwrite-mode 'overwrite-mode-textual)) | 885 | (setq overwrite-mode 'overwrite-mode-textual)) |
| 886 | 886 | ||
| 887 | 887 | ||