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 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.
2008-01-18 Teodor Zlatanov <tzz@lifelogs.com>
* gnus-registry.el (gnus-registry-trim): Use append, not concat.
(with-temp-buffer
(use-local-map keymap)
(set (make-local-variable 'gnus-agent-summary-mode) agent)
(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.
(defun gnus-article-reply-with-original (&optional wide)
"Start composing a reply mail to the current message.
(maybe-fbind '(Info-directory
Info-menu clear-string cp-supported-codepages create-image
custom-autoload display-graphic-p display-time-event-handler
(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
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
url-insert-file-contents vcard-pretty-print w32-focus-frame
w3m-detect-meta-charset w3m-region x-focus-frame))
(maybe-bind '(eudc-protocol
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)
w3-meta-content-type-charset-regexp))
(if (featurep 'xemacs)