[Emacs-diffs] Changes to emacs/lisp/help-mode.el

[Richard M . Stallman]

Index: emacs/lisp/help-mode.el
diff -c emacs/lisp/help-mode.el:1.30 emacs/lisp/help-mode.el:1.31
*** emacs/lisp/help-mode.el:1.30        Fri Dec 17 15:17:12 2004
--- emacs/lisp/help-mode.el     Sun Mar  6 18:32:32 2005
***************
*** 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))))