mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases 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
Show Stats 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))))