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:
parent
19a151e59b
commit
69e73dd3d3
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user