[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0d6fca3 2/9: * lisp/array.el (array-mode): Prefer setq-local.
From: |
Stefan Kangas |
Subject: |
master 0d6fca3 2/9: * lisp/array.el (array-mode): Prefer setq-local. |
Date: |
Tue, 8 Dec 2020 03:32:12 -0500 (EST) |
branch: master
commit 0d6fca30937c91b64c5626b5ea1ef4629de3c1eb
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* 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 0d1ac74..0ad565b 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))
- master updated (0155bd0 -> 1c75ca1), Stefan Kangas, 2020/12/08
- master 0d6fca3 2/9: * lisp/array.el (array-mode): Prefer setq-local.,
Stefan Kangas <=
- master db001f8 5/9: Prefer setq-local in speedbar.el, Stefan Kangas, 2020/12/08
- master 07b317c 3/9: * lisp/locate.el (locate, locate-mode): Prefer setq-local., Stefan Kangas, 2020/12/08
- master 3b20c03 8/9: Prefer setq-local in tests, Stefan Kangas, 2020/12/08
- master 9e7b93f 7/9: Prefer setq-local in term.el, Stefan Kangas, 2020/12/08
- master 6614b67 4/9: Prefer setq-local in newcomment.el, Stefan Kangas, 2020/12/08
- master 478368a 1/9: Prefer setq-local in simple.el, Stefan Kangas, 2020/12/08
- master 095a41e 6/9: Prefer setq-local in shell.el, Stefan Kangas, 2020/12/08
- master 1c75ca1 9/9: * admin/nt/dist-build/build-dep-zips.py: Remove unused import., Stefan Kangas, 2020/12/08