diff options
| author | Eli Zaretskii | 2025-05-31 11:08:45 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-05-31 11:08:45 +0300 |
| commit | 1bb88a86cb38d47006b257fa18a150f23345ad56 (patch) | |
| tree | 8db0f10dcfc30409cf59c97bf8dd88703ef93175 | |
| parent | cb9556d669c037c4e2f1a9c80adacad55948c706 (diff) | |
| download | emacs-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.el | 3 | ||||
| -rw-r--r-- | lisp/custom.el | 3 | ||||
| -rw-r--r-- | lisp/subr.el | 7 |
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 | ||
| 166 | The arguments are variable/value pairs. For each VARIABLE in a pair, | 166 | The arguments are variable/value pairs. For each VARIABLE in a pair, |
| 167 | make VARIABLE buffer-local in the current buffer and assign to it the | 167 | make VARIABLE buffer-local and assign to it the corresponding VALUE |
| 168 | corresponding VALUE of the pair. The VARIABLEs are literal symbols | 168 | of the pair. The VARIABLEs are literal symbols and should not be quoted. |
| 169 | and should not be quoted. | ||
| 170 | 169 | ||
| 171 | The VALUE of the Nth pair is not computed until after the VARIABLE | 170 | The VALUE of the Nth pair is not computed until after the VARIABLE |
| 172 | of the (N-1)th pair is set; thus, each VALUE can use the new VALUEs | 171 | of the (N-1)th pair is set; thus, each VALUE can use the new VALUEs |