Lines Matching +refs:cl +refs:set +refs:frame +refs:visible
99 (eval-when-compile (require 'cl))
131 This is a fine thing to set in your `.emacs' file."
144 "*Non-nil means, never replace the shell frame with another buffer."
148 (defcustom idlwave-shell-use-dedicated-frame nil
149 "*Non-nil means, IDLWAVE should use a special frame to display shell buffer."
153 (defcustom idlwave-shell-frame-parameters
155 "The frame parameters for a dedicated idlwave-shell frame.
156 See also `idlwave-shell-use-dedicated-frame'.
157 The default makes the frame splittable, so that completion works correctly."
162 (defcustom idlwave-shell-raise-frame t
163 "*Non-nil means, `idlwave-shell' raises the frame showing the shell window."
209 This variable must already be set when idlwave-shell.el is loaded.
224 upon return to the main level. Can be set to 'breakpoint to enter
253 to set this option to nil."
317 (set :tag "Checklist" :greedy t
512 (set-face-background 'idlwave-shell-electric-stop-line
515 (set-face-foreground 'idlwave-shell-electric-stop-line nil)
610 `idlwave-shell-temp-rinfo-save-file' is set (respectively)."
734 (set-face-background 'idlwave-shell-pending-stop "gray70")
735 (set-face-background 'idlwave-shell-pending-electric-stop "gray70")
788 (defvar idlwave-shell-halt-frame nil
789 "The frame associated with halt/breakpoint messages.")
791 (defvar idlwave-shell-step-frame nil
792 "The frame associated with step messages.")
794 (defvar idlwave-shell-trace-frame nil
795 "The frame associated with trace messages.")
921 A complete set of commands for compiling and debugging IDL programs
944 configureable set of custom examine commands using
982 (set (make-local-variable 'completion-ignore-case) t)
1007 (setq idlwave-shell-halt-frame nil
1008 idlwave-shell-trace-frame nil
1010 idlwave-shell-step-frame nil)
1025 (set-marker comint-last-input-end (point))
1048 (set (make-local-variable (car entry)) (cdr entry)))))
1075 (set-syntax-table idlwave-mode-syntax-table)
1076 (set (make-local-variable 'comment-start) ";")
1086 (set (make-local-variable 'comint-input-ring-file-name)
1092 (set (make-local-variable 'tool-bar-map) nil)
1109 "Get the path lists, writing to file unless NO-WRITE is set."
1151 (defun idlwave-shell-source-frame ()
1152 "Return the frame to be used for source display."
1153 (if idlwave-shell-use-dedicated-frame
1155 (if (frame-live-p idlwave-shell-display-wframe)
1156 ;; The frame exists, so we use it.
1158 ;; The frame does not exist. We use the current frame.
1159 ;; However, if the current is the shell frame, we make a new frame,
1160 ;; or recycle the first existing visible frame
1162 (if (eq (selected-frame) idlwave-shell-idl-wframe)
1164 (let ((flist (visible-frame-list))
1165 (frame (selected-frame)))
1172 (make-frame))
1173 (selected-frame))))))
1175 (defun idlwave-shell-shell-frame ()
1176 "Return the frame to be used for the shell buffer."
1177 (if idlwave-shell-use-dedicated-frame
1178 ;; We want a dedicated frame
1179 (if (frame-live-p idlwave-shell-idl-wframe)
1182 ;; It does not exist. Check if we have a source frame.
1183 (if (not (frame-live-p idlwave-shell-display-wframe))
1184 ;; We do not have a source frame, so we use this one.
1185 (setq idlwave-shell-display-wframe (selected-frame)))
1186 ;; Return a new frame
1188 (make-frame idlwave-shell-frame-parameters)))))
1196 When called with a prefix ARG, or when `idlwave-shell-use-dedicated-frame'
1211 (let ((idlwave-shell-use-dedicated-frame nil))
1214 (and idlwave-shell-use-dedicated-frame
1215 (setq idlwave-shell-idl-wframe (selected-frame)))
1219 ;; A non-nil arg means, we want a dedicated frame. This will last
1221 (if arg (setq idlwave-shell-use-dedicated-frame t))
1222 (if (equal arg '(16)) (setq idlwave-shell-use-dedicated-frame nil))
1235 (set-process-filter process 'idlwave-shell-filter)
1236 (set-process-sentinel process 'idlwave-shell-sentinel)
1237 (set-buffer buf)
1240 (idlwave-shell-shell-frame)))
1245 (set-window-dedicated-p window t))
1248 (raise-frame (window-frame window)))
1249 (if (eq (selected-frame) (window-frame window))
1309 message, independent of what HIDE is set to."
1336 (set-buffer buf)
1376 (set-marker comint-last-input-start (point))
1377 (set-marker comint-last-input-end (point))
1386 (set-buffer save-buffer))))
1539 (set-buffer
1573 (set-buffer idlwave-shell-hidden-output-buffer)
1638 (set-buffer (idlwave-shell-buffer))
1647 (when (and (> (length (frame-list)) 1)
1648 (frame-live-p idlwave-shell-idl-wframe))
1649 (delete-frame idlwave-shell-idl-wframe)
1659 (set-buffer buf)
1720 found. The variable `idlwave-shell-current-state' is set to 'error,
1748 (setq idlwave-shell-halt-frame
1753 (idlwave-shell-display-line (idlwave-shell-pc-frame)))
1763 (setq idlwave-shell-halt-frame
1769 (idlwave-shell-pc-frame) nil
1777 (setq idlwave-shell-halt-frame
1786 (nth 0 idlwave-shell-halt-frame)
1787 (nth 1 idlwave-shell-halt-frame))
1795 ;; set by the user... Let's update our list.
1798 (idlwave-shell-display-line (idlwave-shell-pc-frame)))
1846 ;; If we have a file, return the frame list
1886 (setq idlwave-shell-step-frame nil
1887 idlwave-shell-halt-frame nil
2107 (set-buffer (idlwave-shell-buffer))
2209 ((eq mode 'set)
2217 ;; CWD might have changed, resync, to set default directory
2266 (idlwave-shell-pc-frame))
2277 ;; parse the stack and visit the selected frame
2305 ;; force edebug for this frame if we're in that mode already
2325 (defun idlwave-shell-goto-frame (&optional frame)
2326 "Set buffer to FRAME with point at the frame line.
2327 If the optional argument FRAME is nil then idlwave-shell-pc-frame is
2328 used. Does nothing if the resulting frame is nil."
2329 (if frame ()
2330 (setq frame (idlwave-shell-pc-frame)))
2332 (frame
2333 (set-buffer (idlwave-find-file-noselect (car frame) 'shell))
2335 (goto-line (nth 1 frame)))))
2337 (defun idlwave-shell-pc-frame ()
2338 "Returns the frame for IDL execution."
2339 (and idlwave-shell-halt-frame
2340 (list (nth 0 idlwave-shell-halt-frame)
2341 (nth 1 idlwave-shell-halt-frame)
2342 (nth 2 idlwave-shell-halt-frame))))
2344 (defun idlwave-shell-valid-frame (frame)
2345 "Check that frame is for an existing file."
2346 (file-readable-p (car frame)))
2357 (defun idlwave-shell-display-line (frame &optional col debug)
2358 "display frame file in other window with overlay arrow.
2360 frame is a list of file name, line number, and subroutine name. if
2361 frame is nil then remove overlay. if col is set, move point to that
2366 (if (not frame)
2376 (if (not (idlwave-shell-valid-frame frame))
2379 (error (concat "invalid frame - unable to access file: " (car frame)))
2385 (if (nth 2 frame)
2388 (nth 2 frame))))
2389 (let* ((buffer (idlwave-find-file-noselect (car frame) 'shell))
2393 ;; first make sure the shell window is visible
2395 nil (idlwave-shell-shell-frame))
2399 nil (idlwave-shell-source-frame)))
2403 (set-buffer buffer)
2406 (goto-line (nth 1 frame))
2426 (set-marker overlay-arrow-position (point) buffer)))
2455 (set-window-point window pos)
2491 If Count is nil then an ordinary breakpoint is set. We treat a count
2504 (idlwave-shell-set-bp
2506 (idlwave-shell-bp (idlwave-shell-current-frame)
2511 (defun idlwave-shell-set-bp-check (bp)
2512 "Check for failure to set breakpoint.
2515 the problem with not being able to set the breakpoint."
2535 (idlwave-shell-set-bp bp))
2537 (message "Unable to set breakpoint.")
2552 For example, this is called from `idlwave-shell-set-bp-check' when a
2553 breakpoint can not be set."
2601 (defun idlwave-shell-current-frame ()
2603 If in the IDL shell buffer, returns `idlwave-shell-pc-frame'."
2606 (idlwave-shell-pc-frame)
2620 (nth 2 idlwave-shell-halt-frame)
2691 "Look for a module name near point and set a break point for it.
2693 for the first line of the corresponding module. If MODULE is `t', set
2704 (idlwave-shell-set-bp-in-module name type class))
2708 (defun idlwave-shell-set-bp-in-module (name type class)
2730 (set-buffer buf)
2749 (if (idlwave-shell-pc-frame)
2751 (idlwave-shell-goto-frame)
2791 (let* ((frame (idlwave-shell-current-frame))
2792 (file (car frame))
2793 (orig-bp-line (nth 1 frame))
2900 With prefix arg, or if transient mode set and the region is defined,
3051 (set-buffer (get-buffer-create "*Examine*"))
3085 ;; found in a frame all by itself, use that, otherwise, switch
3086 ;; to or create an examine window in this frame, and resize if
3088 (let* ((winlist (get-buffer-window-list "*Examine*" nil 'visible)))
3098 (throw 'exit (window-frame thiswin)))))))))
3099 (set-window-start win (point-min)) ; Ensure the point is visible.
3107 (enlarge-window (- (/ (frame-height) 2)
3131 (delete-frame (window-frame win))
3139 (set-buffer buf)
3238 (set-buffer buffer)
3246 ;; First make sure the shell window is visible
3248 nil (idlwave-shell-shell-frame))
3255 (eq this-command 'handle-switch-frame))
3264 (eq this-command 'handle-switch-frame))
3275 The car is the `frame' for the breakpoint:
3311 (set-buffer (idlwave-find-file-noselect
3313 (set (make-local-variable 'comment-start-skip) ";+[ \t]*")
3314 (set (make-local-variable 'comment-start) ";")
3329 nil (idlwave-shell-shell-frame))))
3340 nil (idlwave-shell-shell-frame))))
3357 (defun idlwave-display-buffer (buf not-this-window-p &optional frame)
3359 ;; The XEmacs version enforces the frame
3360 (display-buffer buf not-this-window-p frame)
3361 ;; For Emacs, we need to force the frame ourselves.
3362 (let ((this-frame (selected-frame)))
3364 (if (frame-live-p frame)
3365 (select-frame frame))
3366 (if (eq this-frame (selected-frame))
3367 ;; same frame: use display buffer, to make sure the current
3370 ;; different frame
3378 ; (if (not (frame-live-p frame)) (setq frame nil))
3379 ; (display-buffer buf not-this-window-p frame))
3423 from previous breakpoint list. If NO-SHOW is set, don't update the
3426 (set-buffer (get-buffer-create idlwave-shell-bp-buffer))
3449 ;; Search for either header type, and set the correct regexp
3493 If BP frame is in `idlwave-shell-bp-alist' updates the breakpoint data."
3500 (defun idlwave-shell-set-bp-data (bp data)
3504 (defun idlwave-shell-bp (frame &optional data module)
3509 (cons frame ;; (file line)
3531 (defun idlwave-shell-set-bp (bp &optional no-show)
3532 "Try to set a breakpoint BP.
3558 ;; IDL can't simultaneously set a condition/count
3561 ;; DISABLE and CONDITION/COUNT are not set
3573 (if (idlwave-shell-set-bp-check (quote ,bp))
3574 (idlwave-shell-set-bp-adjust (quote ,bp) (quote ,no-show))))
3579 (defun idlwave-shell-set-bp-adjust (bp &optional no-show)
3591 (defun idlwave-shell-find-bp (frame)
3592 "Return breakpoint from `idlwave-shell-bp-alist' for frame.
3593 Returns nil if frame not found."
3594 (assoc frame idlwave-shell-bp-alist))
3598 (let ((bp (idlwave-shell-find-bp (idlwave-shell-current-frame))))
3602 (idlwave-shell-goto-frame)
3604 (setq bp (idlwave-shell-find-bp (idlwave-shell-current-frame))))
3615 considered the new breakpoint if the file name of frame matches."
3632 (idlwave-shell-set-bp-data bpl (idlwave-shell-bp-get bp 'data))
3669 (idlwave-shell-goto-frame (car bp))
3724 (if (fboundp 'set-specifier) ;; XEmacs
3725 (set-specifier left-margin-width (cons (current-buffer) 2))
3730 (set-window-margins
3735 (if (fboundp 'set-specifier) ;; XEmacs
3736 (set-specifier left-margin-width (cons (current-buffer) 0))
3740 (set-window-margins
3760 (set-extent-property ov 'mouse-face 'highlight)
3761 (set-extent-property ov 'keymap idlwave-shell-debug-line-map))
3766 (set-extent-property ov 'face face))
3772 (set-extent-property ov 'begin-glyph glyph)
3773 (set-extent-property ov 'begin-glyph-layout 'outside-margin)))
3777 (set-extent-property ov 'face face))
3781 (set-extent-priority ov -1)) ; make stop line face prevail
3815 (if ev (mouse-set-point ev))
3816 (let ((bp (idlwave-shell-find-bp (idlwave-shell-current-frame)))
3929 (set-buffer buf)
3972 Query as a function if TYPE set to something beside 'pro."
4010 (set-buffer (get-buffer-create idlwave-shell-bp-buffer))
4081 (let (frame col)
4083 (set-buffer idlwave-shell-error-buffer)
4089 (setq frame
4105 (if frame
4107 (idlwave-shell-display-line frame col 'disable))
4196 ;; The following set of bindings is used to bind the debugging keys.
4334 (set (make-local-variable 'idlwave-shell-electric-debug-read-only)
4342 (set-face-foreground 'fringe idlwave-shell-electric-stop-color
4343 (selected-frame)))))
4357 (set-face-foreground 'fringe (face-foreground 'default))))))
4376 (set-buffer buf)
4542 (set-buffer buf)