1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00

(help-mode-finish): Set help-return-alist first

thing, setting only the entry for the selected window.
This commit is contained in:
Richard M. Stallman 2004-04-20 20:53:01 +00:00
parent 19a151e59b
commit 69e73dd3d3

View File

@ -195,14 +195,17 @@ Commands:
;;;###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.