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)))) |