From: Glenn Morris <rgm@gnu.org>
Date: Sat, 1 Jun 2019 18:33:25 +0000 (-0700)
Subject: * lisp/gnus/gnus.el: Mark autoloaded macros as such.
X-Git-Tag: emacs-26.2.90~28
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=008b263;p=emacs.git

* lisp/gnus/gnus.el: Mark autoloaded macros as such.

This avoids a build failure.
---

diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index c3a57800e39..4437ee972e2 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