# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1110133952 0
# Node ID df46d87c0c2fb54bf6e03a008d37fffbb85d536f
# Parent  f31205c87d5e6a4c603bdd8631f869d1ec2449ef
(help-mode-finish): Don't alter the element
in view-return-to-alist if there already is one.

diff -r f31205c87d5e -r df46d87c0c2f lisp/help-mode.el
--- a/lisp/help-mode.el	Sun Mar 06 18:31:36 2005 +0000
+++ b/lisp/help-mode.el	Sun Mar 06 18:32:32 2005 +0000
@@ -194,8 +194,12 @@
 ;;;###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))))