emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-26 008b263: * lisp/gnus/gnus.el: Mark autoloaded mac


From: Glenn Morris
Subject: [Emacs-diffs] emacs-26 008b263: * lisp/gnus/gnus.el: Mark autoloaded macros as such.
Date: Sat, 1 Jun 2019 14:33:43 -0400 (EDT)

branch: emacs-26
commit 008b263feeba8951a95bec93ec0a9e263cf230f7
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    * lisp/gnus/gnus.el: Mark autoloaded macros as such.
    
    This avoids a build failure.
---
 lisp/gnus/gnus.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index c3a5780..4437ee9 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -2745,12 +2745,12 @@ gnus-registry.el will populate this if it's loaded.")
      (let ((interactive (nth 1 (memq ':interactive package))))
        (mapcar
        (lambda (function)
-         (let (keymap)
+         (let (type)
            (when (consp function)
-             (setq keymap (car (memq 'keymap function)))
+             (setq type (cadr function))
              (setq function (car function)))
            (unless (fboundp function)
-             (autoload function (car package) nil interactive keymap))))
+             (autoload function (car package) nil interactive type))))
        (if (eq (nth 1 package) ':interactive)
            (nthcdr 3 package)
          (cdr package)))))
@@ -2863,8 +2863,8 @@ gnus-registry.el will populate this if it's loaded.")
       gnus-list-of-unread-articles gnus-list-of-read-articles
       gnus-offer-save-summaries gnus-make-thread-indent-array
       gnus-summary-exit gnus-update-read-articles gnus-summary-last-subject
-      gnus-summary-skip-intangible gnus-summary-article-number
-      gnus-data-header gnus-data-find)
+      (gnus-summary-skip-intangible macro) (gnus-summary-article-number macro)
+      (gnus-data-header macro) (gnus-data-find macro))
      ("gnus-group" gnus-group-insert-group-line gnus-group-quit
       gnus-group-list-groups gnus-group-first-unread-group
       gnus-group-set-mode-line gnus-group-set-info gnus-group-save-newsrc



reply via email to

[Prev in Thread] Current Thread [Next in Thread]