Mercurial > emacs
changeset 55010:734c2a20e3ec
(help-mode-finish): Set help-return-alist first
thing, setting only the entry for the selected window.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 20 Apr 2004 20:53:01 +0000 |
| parents | 10f2535aa14e |
| children | ebcf4edbc7f0 |
| files | lisp/help-mode.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help-mode.el Tue Apr 20 20:51:11 2004 +0000 +++ b/lisp/help-mode.el Tue Apr 20 20:53:01 2004 +0000 @@ -195,14 +195,17 @@ ;;;###autoload (defun help-mode-finish () + (let ((entry (assq (selected-window) view-return-to-alist))) + (if entry (setcdr entry (cons (selected-window) + help-return-method)) + (setq view-return-to-alist + (cons (cons (selected-window) help-return-method) + view-return-to-alist)))) (when (eq major-mode 'help-mode) ;; View mode's read-only status of existing *Help* buffer is lost ;; by with-output-to-temp-buffer. (toggle-read-only 1) - (help-make-xrefs (current-buffer))) - (setq view-return-to-alist - (list (cons (selected-window) help-return-method)))) - + (help-make-xrefs (current-buffer)))) ;; Grokking cross-reference information in doc strings and ;; hyperlinking it.