From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 30 Jun 2022 18:23:32 +0000 (+0200)
Subject: Fix define-obsolete-function-alias formatting in loaddefs-gen.el
X-Git-Tag: emacs-29.0.90~1447^2~1343
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2736e61274381ee432f0cd0d15d308b0095436ab;p=emacs.git

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).
---

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