From eac88b3bfb2990efc5787564ddf249f8cabd8df7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 6 Mar 2005 18:32:32 +0000 Subject: [PATCH] (help-mode-finish): Don't alter the element in view-return-to-alist if there already is one. --- lisp/help-mode.el | 8 ++++++-- 1 file 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)))) -- 2.39.5