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).
This commit is contained in:
Lars Ingebrigtsen 2022-06-30 20:23:32 +02:00
parent 15b2138719
commit 2736e61274

View file

@ -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