111 |
(defvar help-return-method nil |
(defvar help-return-method nil |
112 |
"What to do to \"exit\" the help buffer. |
"What to do to \"exit\" the help buffer. |
113 |
This is a list |
This is a list |
114 |
(WINDOW . t) delete the selected window, go to WINDOW. |
(WINDOW . t) delete the selected window (and possibly its frame, |
115 |
|
see `quit-window' and `View-quit'), go to WINDOW. |
116 |
(WINDOW . quit-window) do quit-window, then select WINDOW. |
(WINDOW . quit-window) do quit-window, then select WINDOW. |
117 |
(WINDOW BUF START POINT) display BUF at START, POINT, then select WINDOW.") |
(WINDOW BUF START POINT) display BUF at START, POINT, then select WINDOW.") |
118 |
|
|
120 |
"Display or return message saying how to restore windows after help command. |
"Display or return message saying how to restore windows after help command. |
121 |
This function assumes that `standard-output' is the help buffer. |
This function assumes that `standard-output' is the help buffer. |
122 |
It computes a message, and applies the optional argument FUNCTION to it. |
It computes a message, and applies the optional argument FUNCTION to it. |
123 |
If FUNCTION is nil, it applies `message', thus displaying the message." |
If FUNCTION is nil, it applies `message', thus displaying the message. |
124 |
|
In addition, this function sets up `help-return-method', which see, that |
125 |
|
specifies what to do when the user exits the help buffer." |
126 |
(and (not (get-buffer-window standard-output)) |
(and (not (get-buffer-window standard-output)) |
127 |
(let ((first-message |
(let ((first-message |
128 |
(cond ((special-display-p (buffer-name standard-output)) |
(cond ((or |
129 |
|
pop-up-frames |
130 |
|
(special-display-p (buffer-name standard-output))) |
131 |
(setq help-return-method (cons (selected-window) t)) |
(setq help-return-method (cons (selected-window) t)) |
132 |
;; If the help output buffer is a special display buffer, |
;; If the help output buffer is a special display buffer, |
133 |
;; don't say anything about how to get rid of it. |
;; don't say anything about how to get rid of it. |