diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-03-06 18:32:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-03-06 18:32:32 +0000 |
| commit | eac88b3bfb2990efc5787564ddf249f8cabd8df7 (patch) | |
| tree | 9e135cfb54d8eaa5270bef5b229522fce5572da2 /lisp/help-mode.el | |
| parent | 2e0a74c6e80eccebf5e4eb326bb490b3d4b9152c (diff) | |
| download | emacs-eac88b3bfb2990efc5787564ddf249f8cabd8df7.tar.gz | |
(help-mode-finish): Don't alter the element
in view-return-to-alist if there already is one.
Diffstat (limited to 'lisp/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index e9d3561d251..8b0284089fc 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -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)))) |