/[emacs]/emacs/lisp/help-mode.el
ViewVC logotype

Diff of /emacs/lisp/help-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by kfstorm, Fri Dec 17 15:17:12 2004 UTC revision 1.31 by rms, Sun Mar 6 18:32:32 2005 UTC
# Line 194  Commands: Line 194  Commands:
194  ;;;###autoload  ;;;###autoload
195  (defun help-mode-finish ()  (defun help-mode-finish ()
196    (let ((entry (assq (selected-window) view-return-to-alist)))    (let ((entry (assq (selected-window) view-return-to-alist)))
197          (if entry (setcdr entry (cons (selected-window)          (if entry
198                                        help-return-method))              ;; When entering Help mode from the Help window,
199                ;; such as by following a link, preserve the same
200                ;; meaning for the q command.
201                ;; (setcdr entry (cons (selected-window) help-return-method))
202                nil
203            (setq view-return-to-alist            (setq view-return-to-alist
204                  (cons (cons (selected-window) help-return-method)                  (cons (cons (selected-window) help-return-method)
205                        view-return-to-alist))))                        view-return-to-alist))))

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26