Function: idlwave-help-quit
idlwave-help-quit is an interactive and byte-compiled function defined
in idlw-help.el.gz.
Signature
(idlwave-help-quit)
Documentation
Exit IDLWAVE Help buffer. Kill the dedicated frame if any.
Key Bindings
Source Code
;; Defined in /usr/src/emacs/lisp/progmodes/idlw-help.el.gz
(defun idlwave-help-quit ()
"Exit IDLWAVE Help buffer. Kill the dedicated frame if any."
(interactive)
(cond ((and idlwave-help-use-dedicated-frame
(eq (selected-frame) idlwave-help-frame))
(if (and idlwave-experimental
(frame-live-p idlwave-help-return-frame))
;; Try to select the return frame.
;; This can crash on slow network connections, obviously when
;; we kill the help frame before the return-frame is selected.
;; To protect the workings, we wait for up to one second
;; and check if the return-frame *is* now selected.
;; This is marked "experimental" since we are not sure when
;; it's OK.
(let ((maxtime 1.0) (time 0.) (step 0.1))
(select-frame idlwave-help-return-frame)
(while (and (sit-for step)
(not (eq (selected-frame)
idlwave-help-return-frame))
(< (setq time (+ time step)) maxtime)))))
(delete-frame idlwave-help-frame))
((window-configuration-p idlwave-help-window-configuration)
(set-window-configuration idlwave-help-window-configuration)
(select-window (previous-window)))
(t (kill-buffer (idlwave-help-get-help-buffer)))))