mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(help-mode-finish): Don't alter the element

Browse source 
in view-return-to-alist if there already is one.
This commit is contained in:
Richard M. Stallman 2005-03-06 18:32:32 +00:00
parent 2e0a74c6e8
commit eac88b3bfb
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/help-mode.el
View file

@ -194,8 +194,12 @@ 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))
(if entry
;; When entering Help mode from the Help window,
;; such as by following a link, preserve the same
;; meaning for the q command.
;; (setcdr entry (cons (selected-window) help-return-method))
nil
(setq view-return-to-alist
(cons (cons (selected-window) help-return-method)
view-return-to-alist))))