diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/cus-edit.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 1e13e950476..6b67555770f 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -1159,7 +1159,7 @@ Show the buffer in another window, but don't select it." | |||
| 1159 | (unless (eq symbol basevar) | 1159 | (unless (eq symbol basevar) |
| 1160 | (message "`%s' is an alias for `%s'" symbol basevar)))) | 1160 | (message "`%s' is an alias for `%s'" symbol basevar)))) |
| 1161 | 1161 | ||
| 1162 | (defvar customize-changed-options-previous-release "24.5" | 1162 | (defvar customize-changed-options-previous-release "25.3" |
| 1163 | "Version for `customize-changed-options' to refer back to by default.") | 1163 | "Version for `customize-changed-options' to refer back to by default.") |
| 1164 | 1164 | ||
| 1165 | ;; Packages will update this variable, so make it available. | 1165 | ;; Packages will update this variable, so make it available. |
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index d90e70d3d8b..32ba0ac3091 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -2438,7 +2438,9 @@ As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)', | |||
| 2438 | the PLACE is not modified before executing BODY. | 2438 | the PLACE is not modified before executing BODY. |
| 2439 | 2439 | ||
| 2440 | \(fn ((PLACE VALUE) ...) BODY...)" | 2440 | \(fn ((PLACE VALUE) ...) BODY...)" |
| 2441 | (declare (indent 1) (debug ((&rest (gate gv-place &optional form)) body))) | 2441 | (declare (indent 1) (debug ((&rest [&or (symbolp form) |
| 2442 | (gate gv-place &optional form)]) | ||
| 2443 | body))) | ||
| 2442 | (if (and (not (cdr bindings)) (cdar bindings) (symbolp (caar bindings))) | 2444 | (if (and (not (cdr bindings)) (cdar bindings) (symbolp (caar bindings))) |
| 2443 | `(let ,bindings ,@body) | 2445 | `(let ,bindings ,@body) |
| 2444 | (cl--letf bindings () () body))) | 2446 | (cl--letf bindings () () body))) |