From 0d6fca30937c91b64c5626b5ea1ef4629de3c1eb Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 8 Dec 2020 08:20:40 +0100 Subject: [PATCH] * lisp/array.el (array-mode): Prefer setq-local. --- lisp/array.el | 34 +++++++++++++++++----------------- 1 file 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)) -- 2.39.2