lisp/progmodes/idlw-help.el

116 `idlwave-help-use-dedicated-frame' to function."
123 (defcustom idlwave-help-use-dedicated-frame t
124   "*Non-nil means, use a separate frame for Online Help if possible."
128 (defcustom idlwave-help-frame-parameters
130   "The frame parameters for the special Online Help frame.
131 See also `idlwave-help-use-dedicated-frame'.
132 If you do not set the frame width here, the value specified in
156 should also set the variable `idlwave-help-min-frame-width' to a
157 positive integer.  IDLWAVE will ensure that the help frame is at least
165 The default value for this function is `idlwave-help-with-source' which
213 (defvar idlwave-help-frame nil
214   "The frame for display of IDL online help.")
215 (defvar idlwave-help-frame-width 102
216   "The default width of the help frame.")
243 (define-key idlwave-help-mode-map "\M-?" 'idlwave-help-return-to-calling-frame)
244 (define-key idlwave-help-mode-map "x" 'idlwave-help-return-to-calling-frame)
272 Exit:               [q]uit or mouse button 3 will kill the frame
332       (message "Cannot locate IDL Assistant, enabling default browser.")
347     ;; Check for frame switching.  When the command is invoked twice
348     ;; at the same position, we try to switch to the help frame
353 	(idlwave-help-select-help-frame)
365 (defvar idlwave-system-variables-alist)
366 (defvar idlwave-executive-commands-alist)
420 			    idlwave-system-variables-alist))
437 			    idlwave-executive-commands-alist t))))
668 (defvar idlwave-help-return-frame nil
669   "The frame to return to from the help frame.")
672   "Exit IDLWAVE Help buffer.  Kill the dedicated frame if any."
674   (cond ((and idlwave-help-use-dedicated-frame
675 	      (eq (selected-frame) idlwave-help-frame))
677 		  (frame-live-p idlwave-help-return-frame))
678 	     ;; Try to select the return frame.
680 	     ;; we kill the help frame before the return-frame is selected.
682 	     ;; and check if the return-frame *is* now selected.
685 	       (select-frame idlwave-help-return-frame)
687 			   (not (eq (selected-frame)
688 				    idlwave-help-return-frame))
690 	 (delete-frame idlwave-help-frame))
697 (defvar default-toolbar-visible-p)
702 if passed as a function.  See `idlwave-help-use-dedicated-frame'."
705     (if (and window-system idlwave-help-use-dedicated-frame)
707 	  (idlwave-help-show-help-frame)
709       ;; Do it in this frame and save the window configuration
713       (display-buffer buf nil (selected-frame))
715     (raise-frame)
723 (defun idlwave-help-select-help-frame ()
724   "Select the help frame."
725   (if (and (frame-live-p idlwave-help-frame)
726 	   (not (eq (selected-frame) idlwave-help-frame)))
728 	(setq idlwave-help-return-frame (selected-frame))
729 	(select-frame idlwave-help-frame))))
731 (defun idlwave-help-return-to-calling-frame ()
732   "Select the frame from which the help frame was selected."
734   (if (and (frame-live-p idlwave-help-return-frame)
735 	   (not (eq (selected-frame) idlwave-help-return-frame)))
736       (select-frame idlwave-help-return-frame)))
920 	  (if (boundp 'idlwave-help-min-frame-width)
921 	      (setq idlwave-help-min-frame-width 80))
1175 (defun idlwave-help-show-help-frame ()
1176   "Show the help frame, creating it if necessary"
1177   ;; Use a special frame for this
1178   (unless (frame-live-p idlwave-help-frame)
1179     (setq idlwave-help-frame
1180 	  (make-frame idlwave-help-frame-parameters))
1181     ;; Strip menubar (?) and toolbar from the Help frame.
1185 	  (let ((sval (cons idlwave-help-frame nil)))
1187 	    (set-specifier default-toolbar-visible-p sval)))
1189       (modify-frame-parameters idlwave-help-frame
1192   (select-frame idlwave-help-frame))
1332 				 idlwave-executive-commands-alist)