X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/0a20c80c9cee34a71b975bb37ac811bd339eaf9f..2b75be6704c3adf2f6ec9428dbcca90bf28043ef:/lisp/help-mode.el

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 642dac71ba..1a96f29c4c 100644
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -305,23 +305,6 @@ Commands:
 
 ;;;###autoload
 (defun help-mode-finish ()
-  (if (eq help-window t)
-      ;; If `help-window' is t, `view-return-to-alist' is handled by
-      ;; `with-help-window'.  In this case set `help-window' to the
-      ;; selected window since now is the only moment where we can
-      ;; unambiguously identify it.
-      (setq help-window (selected-window))
-    (let ((entry (assq (selected-window) view-return-to-alist)))
-      (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)))))
-
   (when (eq major-mode 'help-mode)
     ;; View mode's read-only status of existing *Help* buffer is lost
     ;; by with-output-to-temp-buffer.