Mercurial > emacs
comparison lisp/help.el @ 24055:02187e077463
(temp-buffer-setup-hook, temp-buffer-show-hook): Swap
the values round.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 11 Jan 1999 21:01:12 +0000 |
| parents | 1876f867ff95 |
| children | 11e777f59a1f |
comparison
equal
deleted
inserted
replaced
| 24054:19ff7845d5f7 | 24055:02187e077463 |
|---|---|
| 156 | 156 |
| 157 (defun help-mode-setup () | 157 (defun help-mode-setup () |
| 158 (help-mode) | 158 (help-mode) |
| 159 (setq buffer-read-only nil)) | 159 (setq buffer-read-only nil)) |
| 160 | 160 |
| 161 (add-hook 'temp-buffer-setup-hook 'help-mode-setup) | 161 (add-hook 'temp-buffer-show-hook 'help-mode-setup) |
| 162 | 162 |
| 163 (defun help-mode-finish () | 163 (defun help-mode-finish () |
| 164 (when (eq major-mode 'help-mode) | 164 (when (eq major-mode 'help-mode) |
| 165 ;; View mode's read-only status of existing *Help* buffer is lost | 165 ;; View mode's read-only status of existing *Help* buffer is lost |
| 166 ;; by with-output-to-temp-buffer. | 166 ;; by with-output-to-temp-buffer. |
| 167 (toggle-read-only 1) | 167 (toggle-read-only 1) |
| 168 (help-make-xrefs (current-buffer))) | 168 (help-make-xrefs (current-buffer))) |
| 169 (setq view-return-to-alist | 169 (setq view-return-to-alist |
| 170 (list (cons (selected-window) help-return-method)))) | 170 (list (cons (selected-window) help-return-method)))) |
| 171 | 171 |
| 172 (add-hook 'temp-buffer-show-hook 'help-mode-finish) | 172 (add-hook 'temp-buffer-setup-hook 'help-mode-finish) |
| 173 | 173 |
| 174 (defun help-quit () | 174 (defun help-quit () |
| 175 "Just exit from the Help command's command loop." | 175 "Just exit from the Help command's command loop." |
| 176 (interactive) | 176 (interactive) |
| 177 nil) | 177 nil) |