* gnus-art.el (gnus-article-describe-bindings): Make it possible to use xrefs,

 i.e. [back] and [forward] buttons, in *Help* buffer.

* lpath.el: Fbind help-buffer for Emacs 21 and XEmacs; bind
 help-xref-stack-item for Emacs 21, Emacs 22.1, and XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ffb142f..7918c01 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2008-01-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-article-describe-bindings): Make it possible to use
+       xrefs, i.e. [back] and [forward] buttons, in *Help* buffer.
+
+       * lpath.el: Fbind help-buffer for Emacs 21 and XEmacs; bind
+       help-xref-stack-item for Emacs 21, Emacs 22.1, and XEmacs.
+
 2008-01-18  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-trim): Use append, not concat.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 0be9673..969e7fe 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -6424,7 +6424,16 @@ then we display only bindings that start with that prefix."
     (with-temp-buffer
       (use-local-map keymap)
       (set (make-local-variable 'gnus-agent-summary-mode) agent)
-      (describe-bindings prefix))))
+      (describe-bindings prefix))
+    (let ((item `((lambda (prefix)
+                   (save-excursion
+                     (set-buffer ,(current-buffer))
+                     (gnus-article-describe-bindings prefix)))
+                 ,prefix)))
+      (with-current-buffer (if (fboundp 'help-buffer)
+                              (let (help-xref-following) (help-buffer))
+                            "*Help*") ;; Emacs 21
+       (setq help-xref-stack-item item)))))
 
 (defun gnus-article-reply-with-original (&optional wide)
   "Start composing a reply mail to the current message.

diff --git a/lisp/lpath.el b/lisp/lpath.el
index e59759c..5f4eeca 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -12,10 +12,10 @@
 (maybe-fbind '(Info-directory
               Info-menu clear-string cp-supported-codepages create-image
               custom-autoload display-graphic-p display-time-event-handler
-              epg-check-configuration find-coding-system find-image image-size
-              image-type-available-p insert-image line-number-at-pos
-              make-mode-line-mouse-map make-network-process make-temp-file
-              propertize put-image rmail-msg-is-pruned
+              epg-check-configuration find-coding-system find-image
+              help-buffer image-size image-type-available-p insert-image
+              line-number-at-pos make-mode-line-mouse-map make-network-process
+              make-temp-file propertize put-image rmail-msg-is-pruned
               rmail-msg-restore-non-pruned-header sort-coding-systems
               tool-bar-add-item tool-bar-add-item-from-menu
               tool-bar-local-item-from-menu unicode-precedence-list
@@ -23,8 +23,9 @@
               url-insert-file-contents vcard-pretty-print w32-focus-frame
               w3m-detect-meta-charset w3m-region x-focus-frame))
 (maybe-bind '(eudc-protocol
-             filladapt-mode rmail-insert-mime-forwarded-message-function
-             url-version w3-meta-charset-content-type-regexp
+             filladapt-mode help-xref-stack-item
+             rmail-insert-mime-forwarded-message-function url-version
+             w3-meta-charset-content-type-regexp
              w3-meta-content-type-charset-regexp))
 
 (if (featurep 'xemacs)