Changes committed gnus/lisp (ChangeLog gnus-art.el lpath.el)

Modified: ChangeLog gnus-art.el lpath.el

* 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.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1737 gnus/lisp/ChangeLog:7.1738
--- ChangeLog:7.1737	Fri Jan 18 05:51:29 2008
+++ ChangeLog	Fri Jan 18 06:51:04 2008
@@ -1,3 +1,11 @@
+2008-01-18  Katsumi Yamaoka  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* gnus-registry.el (gnus-registry-trim): Use append, not concat.
Index: gnus-art.el
diff -u gnus/lisp/gnus-art.el:7.256 gnus/lisp/gnus-art.el:7.257
--- gnus-art.el:7.256	Thu Jan 17 05:03:42 2008
+++ gnus-art.el	Fri Jan 18 06:51:04 2008
@@ -6424,7 +6424,16 @@
     (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.
Index: lpath.el
diff -u gnus/lisp/lpath.el:7.35 gnus/lisp/lpath.el:7.36
--- lpath.el:7.35	Thu Jan 17 02:54:00 2008
+++ lpath.el	Fri Jan 18 06:51:04 2008
@@ -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)