From: Katsumi Yamaoka Date: Tue, 7 May 2013 00:28:12 +0000 (+0000) Subject: gnus-art.el (gnus-article-describe-bindings): Require help-mode because of let-bindin... X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~275 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=af69a478c07658772615402f021601c5a3c118d9;p=emacs.git gnus-art.el (gnus-article-describe-bindings): Require help-mode because of let-binding help-xref-followin (Bug#14356) --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2701a666598..6a2e83f30e0 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/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 Tassilo Horn * message.el (message-bury, message-send-and-exit): diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 13d9b4e5c28..0cf8ff05a33 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -6629,11 +6629,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. @@ -6684,6 +6680,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)))))