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

Diff of /emacs/lisp/help.el

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

revision 1.290 by monnier, Wed Nov 30 16:09:58 2005 UTC revision 1.291 by eliz, Sat Dec 3 11:51:39 2005 UTC
# Line 111  Line 111 
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    
# Line 119  This is a list Line 120  This is a list
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.

Legend:
Removed from v.1.290  
changed lines
  Added in v.1.291

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