diff options
| author | Glenn Morris <rgm@gnu.org> | 2019-06-01 11:33:25 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2019-06-01 11:33:25 -0700 |
| commit | 008b263feeba8951a95bec93ec0a9e263cf230f7 (patch) | |
| tree | 2777a5a761ee1550bc1e44244c2c6803070bb649 | |
| parent | daf32f1f87b3d71cddd9ab2e9e4c3f5b523ae409 (diff) | |
| download | emacs-008b263feeba8951a95bec93ec0a9e263cf230f7.tar.gz | |
* lisp/gnus/gnus.el: Mark autoloaded macros as such.
This avoids a build failure.
| -rw-r--r-- | lisp/gnus/gnus.el | 10 |
1 files changed, 5 insertions, 5 deletions
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 |