scratch/command 0ab020f: Fix loaddefs generation after the previous change

[Lars Ingebrigtsen]

branch: scratch/command
commit 0ab020f58f586cfc60ecaac9b6a011025d1c9962
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix loaddefs generation after the previous change
---
 lisp/emacs-lisp/autoload.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 861b02c..ae17039 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -144,7 +144,9 @@ expression, in which case we want to handle forms 
differently."
                           ((or `((interactive . ,iargs) . ,_)
                                `(,_ (interactive . ,iargs) . ,_))
                            ;; List of modes or just t.
-                           (or (nthcdr 1 iargs) t)))))
+                           (if (nthcdr 1 iargs)
+                               (list 'quote (nthcdr 1 iargs))
+                             t)))))
         ;; Add the usage form at the end where describe-function-1
         ;; can recover it.
         (when (consp args) (setq doc (help-add-fundoc-usage doc args)))
@@ -210,7 +212,9 @@ expression, in which case we want to handle forms 
differently."
                      t)
                 (and (eq (car-safe (car body)) 'interactive)
                      ;; List of modes or just t.
-                     (or (nthcdr 1 (car body)) t)))
+                     (or (if (nthcdr 1 (car body))
+                             (list 'quote (nthcdr 1 (car body)))
+                           t))))
            ,(if macrop ''macro nil))))
 
      ;; For defclass forms, use `eieio-defclass-autoload'.