Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/array.el (array-mode): Prefer setq-local.

Browse source
This commit is contained in:
Stefan Kangas 2020-12-08 08:20:40 +01:00
parent 478368ad4f
commit 0d6fca3093
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
lisp/array.el
View file

@ -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))