Re: View-quit in help buffer doesn't always quit

[Richard Stallman]

This patch looks plausible, and gives correct results in the case
you reported.  Does it give correct results in general?

*** help-mode.el        17 Dec 2004 19:35:41 -0500      1.30
--- help-mode.el        01 Mar 2005 17:21:24 -0500      
***************
*** 194,201 ****
  ;;;###autoload
  (defun help-mode-finish ()
    (let ((entry (assq (selected-window) view-return-to-alist)))
!       (if entry (setcdr entry (cons (selected-window)
!                                     help-return-method))
          (setq view-return-to-alist
                (cons (cons (selected-window) help-return-method)
                      view-return-to-alist))))
--- 194,205 ----
  ;;;###autoload
  (defun help-mode-finish ()
    (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))))