[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/command 0ab020f: Fix loaddefs generation after the previous chan
From: |
Lars Ingebrigtsen |
Subject: |
scratch/command 0ab020f: Fix loaddefs generation after the previous change |
Date: |
Sat, 13 Feb 2021 09:28:22 -0500 (EST) |
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'.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/command 0ab020f: Fix loaddefs generation after the previous change,
Lars Ingebrigtsen <=