mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-20 10:23:57 +00:00
Code Issues Releases Activity

gnus-art.el (gnus-article-describe-bindings): Require help-mode because of let-binding help-xref-followin (Bug#14356)

Browse Source
This commit is contained in:
Katsumi Yamaoka 2013-05-07 00:28:12 +00:00
parent 203a557223
commit af69a478c0
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2013-05-07 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-describe-bindings): Require help-mode
because of let-binding help-xref-following. (Bug#14356)
2013-05-06 Tassilo Horn <tassilo@member.fsf.org>
* message.el (message-bury, message-send-and-exit):

5
lisp/gnus/gnus-art.el
View File

@ -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)))))