Lines Matching +defs:face +defs:or +defs:list
15 ;; GNU Emacs is free software; you can redistribute it and/or modify
17 ;; the Free Software Foundation; either version 2, or (at your option)
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
32 ;; This mode is for IDL version 5 or later. It should work on
33 ;; Emacs>20.3 or XEmacs>20.4.
36 ;; `shell' or `telnet' commands. Provides command history and
110 ;; We have the old or no custom-library, hack around it!
125 For example, \"^\r?IDL> \" or \"^\r?WAVE> \".
187 Available on XEmacs and on Emacs 21.x or later.
223 This occurs at a breakpoint or any other halt. The mode is exited
274 :type '(list
310 "*A list of command types to show output from in the shell.
402 or when the IDL prompt is encountered.
419 print,'Quit the program, y or n?'
444 :type '(list
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)
486 (const :tag "Face or arrow." t)))
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'.
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)
536 (const :tag "Glyph or face." 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'.
609 TYPE is either 'pro' or 'rinfo', and `idlwave-shell-temp-pro-file' or
613 (or idlwave-shell-temp-rinfo-save-file
617 (or idlwave-shell-temp-pro-file
696 ((or (null idlwave-shell-mark-stop-line)
701 ((eq idlwave-shell-mark-stop-line 'face)
702 ;; Try to use a face. If not possible, arrow will be used anyway
704 (when (or (featurep 'xemacs) ; XEmacs can do also ttys
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")
740 "Command to obtain list of breakpoints")
746 "Lisp list expression or function to run when an IDL command is finished.
748 This is evaluated if it is a list or called with funcall.")
770 Each element of the list is list of \(CMD PCMD HIDE\), where CMD is a
803 "*A list of regular expressions matching IDL messages.
821 "*A list of regular expressions matching stepped execution messages.
842 s or SPACE Step, into function calls.
850 + or = Show higher level in calling stack.
851 - or _ Show lower level in calling stack.
854 p Print expression near point or in region ([C-u p]).
855 ? Help on expression near point or in region ([C-u ?]).
856 x Examine expression near point or in region ([C-u x]) with
909 just like in `idlwave-mode'. The module used is the one at point or
910 the one whose argument list is being edited.
911 To update IDLWAVE's knowledge about compiled or edited modules, use
941 \\[idlwave-shell-print] or \\[idlwave-shell-mouse-print] with the
942 mouse, help, \\[idlwave-shell-help-expression] or
943 \\[idlwave-shell-mouse-help] with the mouse, or with a
1019 (add-to-list (make-local-variable 'idlwave-determine-class-special)
1046 (let ((list idlwave-shell-comint-settings) entry)
1047 (while (setq entry (pop list))
1127 (list x))))
1134 (or sysdir-changed path-changed)
1160 ;; or recycle the first existing visible frame
1163 (or
1164 (let ((flist (visible-frame-list))
1196 When called with a prefix ARG, or when `idlwave-shell-use-dedicated-frame'
1207 \(Type \\[describe-mode] in the shell buffer for a list of commands.)"
1226 (let* ((prg (or idlwave-shell-explicit-file-name "idl"))
1268 (defun idlwave-shell-hide-p (type &optional list)
1270 Return either nil or 'hide."
1271 (let ((list (or list idlwave-shell-show-commands)))
1272 (if (listp list)
1273 (if (not (memq type list)) 'hide))))
1275 (defun idlwave-shell-add-or-remove-show (type)
1276 "Add or remove a show command from the list."
1281 (add-to-list'idlwave-shell-show-commands type)))
1282 (setq idlwave-shell-show-commands (list type))))
1322 ;; Get or make the buffer and its process
1323 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1331 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1335 (when (or cmd idlwave-shell-pending-commands)
1342 (append (list (list cmd pcmd hide show-if-error))
1346 (list (list cmd pcmd hide show-if-error))))))
1393 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1431 (if (or (not (setq buf (get-buffer (idlwave-shell-buffer))))
1467 (defun idlwave-shell-move-or-history (up &optional arg)
1472 (arg (or arg 1))
1480 (defun idlwave-shell-up-or-history (&optional arg)
1484 (idlwave-shell-move-or-history t arg))
1486 (defun idlwave-shell-down-or-history (&optional arg)
1490 (idlwave-shell-move-or-history nil arg))
1614 ;;(message "Calling list")
1647 (when (and (> (length (frame-list)) 1)
1719 count or command parameters. Update the stop line if a message is
1721 'halt, or 'breakpoint, which describes the status, or nil for none of
1729 ((or
1757 ((or (setq trace (string-match idlwave-shell-trace-message-re
1785 (list
1795 ;; set by the user... Let's update our list.
1813 ;or file names.
1846 ;; If we have a file, return the frame list
1848 (list (idlwave-shell-file-name file)
1912 (unless (y-or-n-p "IDL shell is running. Are you sure you want to kill the buffer? ")
1959 (if (or arg (y-or-n-p "Exit the IDLWAVE Shell? "))
1973 (when (or idlwave-shell-reset-no-prompt
1974 (yes-or-no-p "Really Reset IDL and discard current session? "))
1986 ;; Convert the output of the path query into a list of directories
2041 (mapcar 'list
2043 (setq name (idlwave-sintern-routine-or-method name class t)
2047 (list (idlwave-sintern-keyword (car x) t))) keys))
2060 (or t (null file)
2067 (setq entry (list name 'pro class
2070 (list
2081 (or t (not file)
2088 (setq entry (list name 'fun class
2091 (list
2161 Calls `idlwave-shell-complete-filename' after some executive commands or
2204 (let ((word (or (nth 1 idlwave-completion-help-info) word))
2216 args of an executive .run, .rnew or .compile."
2309 (message "%s" (or message
2340 (list (nth 0 idlwave-shell-halt-frame)
2351 (overlay-put idlwave-shell-stop-line-overlay 'face
2360 frame is a list of file name, line number, and subroutine name. if
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))
2424 (or overlay-arrow-position ; create the marker if necessary
2429 (if (or (< pos (point-min)) (> pos (point-max)))
2441 (or (eq debug 'force)
2444 (or
2459 (if (or (and idlwave-shell-electric-zap-to-file electric)
2468 (or (not arg) (< arg 1)
2480 (or (not arg) (< arg 1)
2496 Optional argument CMD is a list or function to evaluate upon reaching
2507 (list count cmd condition disabled)
2524 (y-or-n-p
2602 "Return a list containing the current file name and line point is in.
2608 (list (idlwave-shell-file-name (buffer-file-name))
2629 (list (upcase name) type)))))))
2642 "Disable or enable current breakpoint or a breakpoint passed in BP.
2643 If FORCE is 'disable or 'enable, for that condition instead of
2645 list after toggling."
2647 (let* ((bp (or bp (idlwave-shell-find-current-bp)))
2663 (let ((bpl (or bpl idlwave-shell-bp-alist)) disabled modified)
2714 (or
2720 (if (or (not source-file)
2723 (or (idlwave-get-buffer-visiting source-file)
2790 "Move to the next or previous breakpoint, depending on direction DIR."
2804 (or (not bp-line) (funcall closer-func cur-line bp-line)))
2865 "Pop-up a list to select from for examining the expression"
2877 (defvar idlwave-shell-examine-completion-list nil)
2893 directly following the identifier - an array or function call.
2896 identifier. If point is at the beginning or within an expression
2900 With prefix arg, or if transient mode set and the region is defined,
2905 If EV is a valid event passed, pop-up a list from
2928 ((and (or arg (idlwave-region-active-p))
2934 ;; Move to beginning of current or previous expression
2942 ;; Move to beginning of identifier - must be an array or
2970 ;; Remove empty or comment-only lines
2981 ;; Pop-up or complete on the examine selection list, if appropriate
2982 (if (or
2989 ;; A cons from either a pop-up or mini-buffer completion
2996 ;; 'idlwave-shell-examine-completion-list
3061 (let* ((end (or
3066 (or (progn (if (re-search-backward
3086 ;; to or create an examine window in this frame, and resize if
3088 (let* ((winlist (get-buffer-window-list "*Examine*" nil 'visible)))
3092 (let ((list winlist) thiswin)
3095 (while (setq thiswin (pop list))
3104 (or (not (memq win winlist)) ;a newly created window
3110 ;; Clean the window list of dead windows
3118 (add-to-list 'idlwave-shell-examine-window-alist
3172 ((or
3215 HELP can be non-nil for `help,', nil for 'print,' or any string into which
3254 (unless (or (eq this-command 'idlwave-shell-mouse-nop)
3263 (unless (or (eq this-command 'idlwave-shell-mouse-nop)
3279 The first element of the cdr is a list of internal IDL data:
3291 lisp function to be called with `funcall' with no arguments or a
3292 list to be evaluated with `eval'.
3385 "Reconcile idlwave-shell's breakpoint list with IDL's.
3397 'module, 'count, 'cmd, 'condition, 'disabled, 'type, or
3398 'data. 'data returns a list of 'count, 'cmd and 'condition.
3423 from previous breakpoint list. If NO-SHOW is set, don't update the
3438 "\\s-+\\(Uncompiled\\|" ; 3-6 either uncompiled or routine name
3448 (setq idlwave-shell-bp-alist (list nil))
3450 (when (or
3471 ;; Add the breakpoint info to the list
3473 (list (cons (list file line)
3474 (list
3475 (list index module)
3485 ;; Return the new list
3492 "Update BP data in breakpoint list.
3510 (cons (list nil module) ;; (index_id (module type) | module)
3523 (internal-file-list
3526 (if (and internal-file-list
3527 (equal bp-file (nth 0 internal-file-list)))
3528 (nth 1 internal-file-list)
3534 line specified by BP or at the next IDL statement if that line is not
3546 ;; Get sources for this routine in the sources list
3571 ;; Check for failure and adjust breakpoint to match IDL's list
3580 "Find the breakpoint in IDL's internal list of breakpoints."
3597 "Find breakpoint here, or at halt location."
3611 "Find the new breakpoint in IDL's list and update with DATA.
3614 Looks for a new breakpoint index number in the list. This is
3625 (setq bpl (list bpl)))
3650 (bp-list idlwave-shell-bp-alist)
3653 ov ov-list bp buf old-buffers win)
3657 (while (setq ov-list (pop ov-alist))
3658 (while (setq ov (pop (cdr ov-list)))
3659 (add-to-list 'old-buffers (overlay-buffer ov))
3665 (mapcar 'list (mapcar 'car idlwave-shell-bp-glyph))
3666 (list (list 'bp))))
3667 (while (setq bp (pop bp-list))
3687 (help-list
3689 (list
3698 (if help-list
3701 (mapconcat 'identity help-list ", ")))
3709 (ov (or (and (cdr ov-existing)
3719 (list (list full-type ov)))))
3747 is passed, make an overlay of that type ('bp or 'bp-cond, currently
3752 (type (or type 'bp))
3753 (face (if disabled
3754 idlwave-shell-disabled-breakpoint-face
3755 idlwave-shell-breakpoint-face)))
3760 (set-extent-property ov 'mouse-face 'highlight)
3766 (set-extent-property ov 'face face))
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)
3794 (list :conversion 'disabled))))
3798 (list (list 'margin 'left-margin)
3801 ;; just the face
3802 (overlay-put ov 'face face)))
3804 ;; use a face
3806 (overlay-put ov 'face face))
3828 (list (if disabled "Enable" "Disable")
3845 (if (or (not condition)
3850 (idlwave-shell-break-here (if (or (not count)
3879 (or idlwave-shell-command-line-to-execute
3955 (or (eq t idlwave-auto-routine-info-updates)
3989 (setcdr old (list (idlwave-shell-file-name filename) filename))
3992 (list (cons (upcase module)
3993 (list (idlwave-shell-file-name filename)
4007 list elements of the form:
4038 (let ((al (list nil)))
4044 (list
4051 (list
4069 (defun idlwave-shell-list-all-bp ()
4085 (if (or
4090 (list
4136 ;(define-key idlwave-shell-mode-map "\M-?" 'comint-dynamic-list-completions)
4156 (define-key idlwave-shell-mode-map [(up)] 'idlwave-shell-up-or-history)
4157 (define-key idlwave-shell-mode-map [(down)] 'idlwave-shell-down-or-history)
4198 ;; first key in the list gets bound the C-c C-d prefix map. If
4200 ;; list gets bound with the specified modifiers in both
4201 ;; `idlwave-mode-map' and `idlwave-shell-mode-map'. The next list
4265 (if (char-or-string-p c2)
4267 (list (if shift (upcase c2) c2)))))
4268 (setq k2 (vector (append mod (list c2)))))
4273 (if (and electric (char-or-string-p c2))
4307 ;; session until we return or hit $MAIN$. Cancel this suppression
4337 (add-to-list 'idlwave-shell-electric-debug-buffers (current-buffer))
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))))))
4406 (or (eq major-mode 'idlwave-mode)
4409 (or (eq major-mode 'idlwave-mode)
4412 (or (eq major-mode 'idlwave-mode)
4447 ["List All Breakpoints" idlwave-shell-list-all-bp t]
4488 ["Compiling Commands" (idlwave-shell-add-or-remove-show 'run)
4494 ["Breakpoint Commands" (idlwave-shell-add-or-remove-show 'breakpoint)
4500 ["Debug Commands" (idlwave-shell-add-or-remove-show 'debug)
4506 ["Miscellaneous Commands" (idlwave-shell-add-or-remove-show 'misc)
4532 (if (or (featurep 'easymenu) (load "easymenu" t))
4547 (buffer-list)))))
4691 (list
4700 (list 'image :type 'xpm :data (cdr im-cons)