aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2025-05-31 11:08:45 +0300
committerEli Zaretskii2025-05-31 11:08:45 +0300
commit1bb88a86cb38d47006b257fa18a150f23345ad56 (patch)
tree8db0f10dcfc30409cf59c97bf8dd88703ef93175
parentcb9556d669c037c4e2f1a9c80adacad55948c706 (diff)
downloademacs-1bb88a86cb38d47006b257fa18a150f23345ad56.tar.gz
emacs-1bb88a86cb38d47006b257fa18a150f23345ad56.zip
Revert "; * lisp/subr.el (setq-local): Doc fix (bug#78644)."
This reverts commit cb9556d669c037c4e2f1a9c80adacad55948c706. Some of its parts were not supposed to be installed.
-rw-r--r--lisp/cus-edit.el3
-rw-r--r--lisp/custom.el3
-rw-r--r--lisp/subr.el7
3 files changed, 5 insertions, 8 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 510c0b99702..2ecae541fed 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -149,8 +149,7 @@
149 (error nil)) 149 (error nil))
150 150
151(condition-case nil 151(condition-case nil
152 (unless (featurep 'cus-start) 152 (require 'cus-start)
153 (require 'cus-start))
154 (error nil)) 153 (error nil))
155 154
156(put 'custom-define-hook 'custom-type 'hook) 155(put 'custom-define-hook 'custom-type 'hook)
diff --git a/lisp/custom.el b/lisp/custom.el
index e5ceda87f61..a0dc1945bed 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -699,8 +699,7 @@ The result is that the change is treated as having been made through Custom."
699 (ignore-errors 699 (ignore-errors
700 (require 'cus-load)) 700 (require 'cus-load))
701 (ignore-errors 701 (ignore-errors
702 (unless (featurep 'cus-start) 702 (require 'cus-start))
703 (require 'cus-start)))
704 (dolist (load (get symbol 'custom-loads)) 703 (dolist (load (get symbol 'custom-loads))
705 (cond ((symbolp load) (ignore-errors (require load))) 704 (cond ((symbolp load) (ignore-errors (require load)))
706 ;; This is subsumed by the test below, but it's much faster. 705 ;; This is subsumed by the test below, but it's much faster.
diff --git a/lisp/subr.el b/lisp/subr.el
index 50ebc598e80..99981848db4 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -161,12 +161,11 @@ of previous VARs.
161 `(progn . ,(nreverse exps)))) 161 `(progn . ,(nreverse exps))))
162 162
163(defmacro setq-local (&rest pairs) 163(defmacro setq-local (&rest pairs)
164 "Make each VARIABLE local to current buffer and set it to corresponding VALUE. 164 "Make each VARIABLE buffer-local and assign to it the corresponding VALUE.
165 165
166The arguments are variable/value pairs. For each VARIABLE in a pair, 166The arguments are variable/value pairs. For each VARIABLE in a pair,
167make VARIABLE buffer-local in the current buffer and assign to it the 167make VARIABLE buffer-local and assign to it the corresponding VALUE
168corresponding VALUE of the pair. The VARIABLEs are literal symbols 168of the pair. The VARIABLEs are literal symbols and should not be quoted.
169and should not be quoted.
170 169
171The VALUE of the Nth pair is not computed until after the VARIABLE 170The VALUE of the Nth pair is not computed until after the VARIABLE
172of the (N-1)th pair is set; thus, each VALUE can use the new VALUEs 171of the (N-1)th pair is set; thus, each VALUE can use the new VALUEs