Lines Matching +defs:set +defs:glyph +defs:face
131 This is a fine thing to set in your `.emacs' file."
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
473 'face Use `idlwave-shell-stop-line-face' to highlight the line.
474 t Use what IDLWAVE thinks is best. Will be a face where possible,
478 a face highlighting may be better.
485 (const :tag "Highlight with face" face)
497 (defcustom idlwave-shell-stop-line-face 'highlight
498 "*The face for `idlwave-shell-stop-line-overlay'.
505 "*The color for the default face or overlay arrow when stopped."
509 (defcustom idlwave-shell-electric-stop-line-face
511 (copy-face 'modeline 'idlwave-shell-electric-stop-line)
512 (set-face-background 'idlwave-shell-electric-stop-line
515 (set-face-foreground 'idlwave-shell-electric-stop-line nil)
517 "*The face for `idlwave-shell-stop-line-overlay' when in electric debug mode.
527 'face Highlight line with `idlwave-shell-breakpoint-face'.
528 'glyph Red dot at the beginning of line. If the display does not
529 support glyphs, will use 'face instead.
530 t Glyph when possible, otherwise face (same effect as 'glyph)."
534 (const :tag "Highlight with face" face)
535 (const :tag "Display glyph (red dot)" glyph)
536 (const :tag "Glyph or face." t)))
538 (defvar idlwave-shell-use-breakpoint-glyph t
541 (defcustom idlwave-shell-breakpoint-face 'idlwave-shell-bp
542 "*The face for breakpoint lines in the source code.
549 ;; Just copy the underline face to be on the safe side.
550 (copy-face 'underline 'idlwave-shell-bp)
551 ;; We have the new customize - use it to define a customizable face
558 (defcustom idlwave-shell-disabled-breakpoint-face
560 "*The face for disabled breakpoint lines in the source code.
567 ;; Just copy the underline face to be on the safe side.
568 (copy-face 'underline 'idlwave-shell-disabled-bp)
569 ;; We have the new customize - use it to define a customizable face
577 (defcustom idlwave-shell-expression-face 'secondary-selection
578 "*The face for `idlwave-shell-expression-overlay'.
584 (defcustom idlwave-shell-output-face 'secondary-selection
585 "*The face for `idlwave-shell-output-overlay'.
610 `idlwave-shell-temp-rinfo-save-file' is set (respectively)."
701 ((eq idlwave-shell-mark-stop-line 'face)
702 ;; Try to use a face. If not possible, arrow will be used anyway
710 'face idlwave-shell-stop-line-face))))
713 ;; IDLWAVE may decide. Will use a face on window systems, arrow elsewhere
718 'face idlwave-shell-stop-line-face)))))
723 'face idlwave-shell-expression-face)
728 'face idlwave-shell-output-face)
730 (copy-face idlwave-shell-stop-line-face
732 (copy-face idlwave-shell-electric-stop-line-face
734 (set-face-background 'idlwave-shell-pending-stop "gray70")
735 (set-face-background 'idlwave-shell-pending-electric-stop "gray70")
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)
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."
1235 (set-process-filter process 'idlwave-shell-filter)
1236 (set-process-sentinel process 'idlwave-shell-sentinel)
1237 (set-buffer buf)
1245 (set-window-dedicated-p window t))
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))
1659 (set-buffer buf)
1720 found. The variable `idlwave-shell-current-state' is set to 'error,
1795 ;; set by the user... Let's update our list.
2107 (set-buffer (idlwave-shell-buffer))
2209 ((eq mode 'set)
2217 ;; CWD might have changed, resync, to set default directory
2333 (set-buffer (idlwave-find-file-noselect (car frame) 'shell))
2351 (overlay-put idlwave-shell-stop-line-overlay 'face
2361 frame is nil then remove overlay. if col is set, move point to that
2403 (set-buffer buffer)
2413 ;; restore face and move overlay
2414 (overlay-put idlwave-shell-stop-line-overlay 'face
2416 idlwave-shell-electric-stop-line-face
2417 idlwave-shell-stop-line-face))
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
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."
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)
2900 With prefix arg, or if transient mode set and the region is defined,
3051 (set-buffer (get-buffer-create "*Examine*"))
3099 (set-window-start win (point-min)) ; Ensure the point is visible.
3139 (set-buffer buf)
3238 (set-buffer buffer)
3311 (set-buffer (idlwave-find-file-noselect
3313 (set (make-local-variable 'comment-start-skip) ";+[ \t]*")
3314 (set (make-local-variable 'comment-start) ";")
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
3500 (defun idlwave-shell-set-bp-data (bp data)
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)
3632 (idlwave-shell-set-bp-data bpl (idlwave-shell-bp-get bp 'data))
3638 (defvar idlwave-shell-bp-glyph)
3651 (use-glyph (and (memq idlwave-shell-mark-breakpoints '(t glyph))
3652 idlwave-shell-bp-glyph))
3664 (if idlwave-shell-bp-glyph
3665 (mapcar 'list (mapcar 'car idlwave-shell-bp-glyph))
3675 (type (if idlwave-shell-bp-glyph
3720 ;; Take care of margins if using a glyph
3721 (when use-glyph
3724 (if (fboundp 'set-specifier) ;; XEmacs
3725 (set-specifier left-margin-width (cons (current-buffer) 2))
3730 (set-window-margins
3732 (if use-glyph
3735 (if (fboundp 'set-specifier) ;; XEmacs
3736 (set-specifier left-margin-width (cons (current-buffer) 0))
3740 (set-window-margins
3750 (use-glyph (and (memq idlwave-shell-mark-breakpoints '(t glyph))
3751 idlwave-shell-bp-glyph))
3753 (face (if disabled
3754 idlwave-shell-disabled-breakpoint-face
3755 idlwave-shell-breakpoint-face)))
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))
3768 ;; use the glyph
3769 (use-glyph
3770 (let ((glyph (cdr (assq type idlwave-shell-bp-glyph))))
3771 (if disabled (setq glyph (car glyph)) (setq glyph (nth 1 glyph)))
3772 (set-extent-property ov 'begin-glyph glyph)
3773 (set-extent-property ov 'begin-glyph-layout 'outside-margin)))
3775 ;; use the face
3777 (set-extent-property ov 'face face))
3781 (set-extent-priority ov -1)) ; make stop line face prevail
3784 (overlay-put ov 'mouse-face 'highlight)
3788 (if use-glyph
3789 (let ((image-props (cdr (assq type idlwave-shell-bp-glyph)))
3801 ;; just the face
3802 (overlay-put ov 'face face)))
3804 ;; use a face
3806 (overlay-put ov 'face face))
3815 (if ev (mouse-set-point ev))
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))
4083 (set-buffer idlwave-shell-error-buffer)
4196 ;; The following set of bindings is used to bind the debugging keys.
4334 (set (make-local-variable 'idlwave-shell-electric-debug-read-only)
4339 (overlay-put idlwave-shell-stop-line-overlay 'face
4340 idlwave-shell-electric-stop-line-face))
4342 (set-face-foreground 'fringe idlwave-shell-electric-stop-color
4354 (overlay-put idlwave-shell-stop-line-overlay 'face
4355 idlwave-shell-stop-line-face)
4357 (set-face-foreground 'fringe (face-foreground 'default))))))
4376 (set-buffer buf)
4542 (set-buffer buf)
4551 (defvar idlwave-shell-bp-glyph nil
4695 (make-glyph data))
4696 (make-glyph (cdr im-cons))))
4703 (if im (push (cons (car im-cons) im) idlwave-shell-bp-glyph))))