diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-12-08 08:20:40 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 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.tar.bz2 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'." (make-local-variable 'array-row) (make-local-variable 'array-column) (make-local-variable 'array-copy-string) - (set (make-local-variable 'array-respect-tabs) nil) - (set (make-local-variable 'array-max-row) - (read-number "Number of array rows: ")) - (set (make-local-variable 'array-max-column) - (read-number "Number of array columns: ")) - (set (make-local-variable 'array-columns-per-line) - (read-number "Array columns per line: ")) - (set (make-local-variable 'array-field-width) - (read-number "Field width: ")) - (set (make-local-variable 'array-rows-numbered) - (y-or-n-p "Rows numbered? ")) - (set (make-local-variable 'array-line-length) - (* array-field-width array-columns-per-line)) - (set (make-local-variable 'array-lines-per-row) - (+ (floor (1- array-max-column) array-columns-per-line) - (if array-rows-numbered 2 1))) + (setq-local array-respect-tabs nil) + (setq-local array-max-row + (read-number "Number of array rows: ")) + (setq-local array-max-column + (read-number "Number of array columns: ")) + (setq-local array-columns-per-line + (read-number "Array columns per line: ")) + (setq-local array-field-width + (read-number "Field width: ")) + (setq-local array-rows-numbered + (y-or-n-p "Rows numbered? ")) + (setq-local array-line-length + (* array-field-width array-columns-per-line)) + (setq-local array-lines-per-row + (+ (floor (1- array-max-column) array-columns-per-line) + (if array-rows-numbered 2 1))) (message "") (force-mode-line-update) - (set (make-local-variable 'truncate-lines) t) + (setq-local truncate-lines t) (setq overwrite-mode 'overwrite-mode-textual)) |