diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-30 20:23:32 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-30 21:33:46 +0200 |
| commit | 2736e61274381ee432f0cd0d15d308b0095436ab (patch) | |
| tree | 1ff8766443713b70a9b06a9f3edf9e53182da457 | |
| parent | 15b2138719b34083967001c3903e7560d5e0947c (diff) | |
| download | emacs-2736e61274381ee432f0cd0d15d308b0095436ab.tar.gz | |
Fix define-obsolete-function-alias formatting in loaddefs-gen.el
* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate--print-form):
Fix formatting of define-obsolete-function-alias statements
(bug#56292).
| -rw-r--r-- | lisp/emacs-lisp/loaddefs-gen.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el index 7545ba1e5e8..2c92a8e7fe8 100644 --- a/lisp/emacs-lisp/loaddefs-gen.el +++ b/lisp/emacs-lisp/loaddefs-gen.el @@ -633,7 +633,8 @@ If GENERATE-FULL, don't update, but regenerate all the loaddefs files." "Print DEF in the way make-docfile.c expects it." (if (or (not (consp def)) (not (symbolp (car def))) - (eq (car def) 'make-obsolete) + (memq (car def) '( make-obsolete + define-obsolete-function-alias)) (not (stringp (nth 3 def)))) (prin1 def (current-buffer) t) ;; The salient point here is that we have to have the doc string |