From c3ec5d2cb2fdd3b9dd553faac44a1a11ca606ef7 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 7 May 2013 00:28:13 +0000 Subject: [PATCH] gnus-art.el (gnus-article-describe-bindings): Require help-mode because of let-binding help-xref-following (Bug#14356) --- lisp/ChangeLog | 5 +++++ lisp/gnus-art.el | 5 +---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e73237c42..3c98f8088 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-05-07 Katsumi Yamaoka + + * gnus-art.el (gnus-article-describe-bindings): Require help-mode + because of let-binding help-xref-following. (Bug#14356) + 2013-05-06 Glenn Morris * mml2015.el (mml2015-epg-sign): Add name="signature.asc". (Bug#13465) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index b5fbff22d..9f12e45a1 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -6630,11 +6630,7 @@ KEY is a string or a vector." ;;`gnus-agent-mode' in gnus-agent.el will define it. (defvar gnus-agent-summary-mode) (defvar gnus-draft-mode) -;; Calling help-buffer will autoload help-mode. (defvar help-xref-stack-item) -;; Emacs 22 doesn't load it in the batch mode. -(eval-when-compile - (autoload 'help-buffer "help-mode")) (defun gnus-article-describe-bindings (&optional prefix) "Show a list of all defined keys, and their definitions. @@ -6685,6 +6681,7 @@ then we display only bindings that start with that prefix." (with-current-buffer ,(current-buffer) (gnus-article-describe-bindings prefix))) ,prefix))) + (require 'help-mode) (with-current-buffer (let (help-xref-following) (help-buffer)) (setq help-xref-stack-item item))))) -- 2.34.1