Don't quote the `when' form in obsoletions
* lisp/emacs-lisp/byte-run.el (byte-run--set-obsolete): The `when' is a string (or nil), so don't quote it (bug#48145). * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--print-form): Adjust folding.
This commit is contained in:
parent
73e75e18d1
commit
a53c34d76a
2 changed files with 2 additions and 1 deletions
|
@ -166,7 +166,7 @@ The return value of this function is not used."
|
|||
(defalias 'byte-run--set-obsolete
|
||||
#'(lambda (f _args new-name when)
|
||||
(list 'make-obsolete
|
||||
(list 'quote f) (list 'quote new-name) (list 'quote when))))
|
||||
(list 'quote f) (list 'quote new-name) when)))
|
||||
|
||||
(defalias 'byte-run--set-interactive-only
|
||||
#'(lambda (f _args instead)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue