Lines Matching +defs:face +defs:or +defs:list
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; the Free Software Foundation; either version 2, or (at your option)
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
52 ;;; ;; Which would be better: "\e[A" or "\eOA"? readline accepts either.
79 ;;; connected to the internet or if somebody else works on your workstation!)
136 ;;; - Which keys are better ? \eOA or \e[A ?
216 ;;; # string consists of one or more of the following numeric codes:
235 ;;; # List any file extensions like '.gz' or '.tar' that you would like ls
238 ;;; .tar 01;33 # archives or compressed
299 ;;; # or by using your favourite editor
372 ;; c-d term-delchar-or-maybe-eof Delete char unless at end of buff.
380 ;; c-c c-h term-dynamic-list-input-ring List input history
386 ;; term-dynamic-list-completions List completions in help buffer.
420 ;;; term-delimiter-argument-list - list For delimiters and arguments
432 ;;; term-completion-fignore - list ...
445 ;; or nil if unknown.
448 ;; or nil if unknown.
456 ;; This emulates (more or less) the behavior of xterm.
458 ;; state 3: seen ESC [ (or ESC [ ?)
460 (defvar term-kill-echo-list nil) ;; A queue of strings whose echo
464 (defvar term-current-face 'default)
504 (defvar term-delimiter-argument-list ()
506 Strings comprising a character in this list will separate the arguments
509 Defaults to the empty list.
546 If nil, then do not scroll. If t or `all', scroll all windows showing buffer.
591 history list. Default is to save anything that isn't all whitespace.")
653 ; assuming this is Emacs 19.20 or newer.
685 (defvar term-ansi-face-already-done nil)
744 (define-key term-mode-map "\C-d" 'term-delchar-or-maybe-eof)
755 (define-key term-mode-map "\C-c\C-l" 'term-dynamic-list-input-ring)
769 ; '("File Completion Listing" . term-dynamic-list-filename-completions))
801 '("File Completion Listing" . term-dynamic-list-filename-completions))
842 (define-key term-inout-menu [list-history]
843 '("List Input History" . term-dynamic-list-input-ring))
887 (unless (or (eq i ?O) (eq i 91))
890 (dolist (elm (generic-character-list))
936 (let ((dt (or (copy-sequence standard-display-table)
969 \\[term-dynamic-list-input-ring]. Input ring history expansion can be
970 achieved with the commands \\[term-replace-by-expanded-history] or
1026 (or (and (boundp 'term-input-ring) term-input-ring)
1029 (or (and (boundp 'term-input-ring-index) term-input-ring-index)
1060 (make-local-variable 'term-ansi-face-already-done)
1074 (make-local-variable 'term-kill-echo-list)
1093 (make-local-variable 'term-delimiter-argument-list)
1105 (make-local-variable 'term-current-face)
1113 (append current-menubar (list term-terminal-menu))))
1114 (or term-input-ring
1127 ;; Recursive routine used to check if any string in term-kill-echo-list
1130 ;; Also, remove that string from the term-kill-echo-list.
1131 ;; We *also* remove any older string on the list, as a sanity measure,
1133 ;; should only be one element in the list.)
1135 (defun term-check-kill-echo-list ()
1136 (let ((cur term-kill-echo-list) (found nil) (save-point (point)))
1145 (setq term-kill-echo-list (cdr cur))
1156 (when (or (/= term-height (1- (window-height)))
1206 (or (condition-case () (x-get-selection) (error ()))
1208 (error "No selection or cut buffer available")))
1223 ;; Which would be better: "\e[A" or "\eOA"? readline accepts either.
1281 it is alive (status RUN or STOP). BUFFER can be either a buffer or the
1294 ;; If no process, or nuked process, crank up a new one and put buffer in
1310 (interactive (list (read-from-minibuffer "Run program: "
1311 (or explicit-shell-file-name
1376 ;; will stay around until M-x list-processes.
1382 "Write process exit (or other change) message MSG in the current buffer."
1427 (list
1463 ;;; term-dynamic-list-input-ring List history in help buffer.
1495 (cond ((or (null term-input-ring-file-name)
1499 (or silent
1521 (when (or (null term-input-ignoredups)
1539 (cond ((or (null term-input-ring-file-name)
1562 (defun term-dynamic-list-input-ring ()
1565 (if (or (not (ring-p term-input-ring))
1572 ;; We have to build up a list ourselves from the ring vector.
1579 (display-completion-list history)
1589 (setq unread-command-events (list ch)))))))
1593 ;; Return list of regexp and prefix arg using PROMPT.
1598 (list (if (string-equal regexp "")
1608 ((or (null term-input-ring)
1624 ;; For a new search, start from beginning or end, as appropriate
1656 Moves relative to START, or `term-input-ring-index'."
1657 (when (or (not (ring-p term-input-ring))
1662 (n (mod (- (or start (term-search-start arg)) motion) len))
1685 If N is negative, find the next or Nth next match."
1703 If N is negative, find the previous or Nth previous match."
1783 (cond ((or (= (preceding-char) ?\\)
1785 ;; The history is quoted, or we're in quotes.
1806 ((or (looking-at "!!?:?\\([0-9^$*-]+\\)") (looking-at "!!"))
1815 ;; Most recent input starting with or containing (possibly
1819 (exp (buffer-substring (or mb2 mb1) (or me2 me1)))
1827 (or silent
1845 (or silent
1866 (or (= (mod countsq 2) 1) (= (mod countdq 2) 1))))
1897 ;; Return a list of arguments from ARG. Break it up at the
1898 ;; delimiters in term-delimiter-argument-list. Returned list is backwards.
1900 (if (null term-delimiter-argument-list)
1901 (list arg)
1908 (if (memq char term-delimiter-argument-list)
1913 term-delimiter-argument-list)))
1920 NTH and/or MTH can be nil, which means the last argument.
1923 Also, a run of one or more of a single character
1924 in `term-delimiter-argument-list' is a separate argument.
1930 ;; Build a list of all the args until we have as many as we want.
1931 (while (and (or (null mth) (<= count mth))
1936 quotes (or quotes (match-beginning 1)))
1952 (let ((n (or nth (1- count)))
1968 buffer and sent to the process. The list of function names contained in the
1974 `term-input-autoexpand'. The list of function names contained in the value
2033 (or (null term-input-ignoredups)
2093 ;; serialise. This is just because I don't know whether or not Emacs
2117 ;;; These two functions are for entering text you don't want echoed or
2118 ;;; saved -- typically passwords to ftp, telnet, or somesuch.
2125 RET, LFD, or ESC. DEL or C-h rubs out. C-u kills line. C-g aborts (if
2152 ((or (= c ?\r) (= c ?\n) (= c ?\e))
2172 is additionally sent. String is not saved on term input history list.
2181 (setq term-kill-echo-list (nconc term-kill-echo-list
2276 (defun term-delchar-or-maybe-eof (arg)
2277 "Delete ARG characters forward, or send an EOF to process if at end of
2293 If N is negative, find the next or Nth next match."
2309 If N is negative, find the previous or Nth previous match."
2333 ;;; commands that process files of source text (e.g. loading or compiling
2343 ;;; whether the file is source or executable. If you compile foo.lisp
2366 ;;; source-file processing command, or nil if there hasn't been one yet.
2367 ;;; - SOURCE-MODES is a list used to determine what buffers contain source
2369 ;;; Typically, (lisp-mode) or (scheme-mode).
2403 ;;; Prior to loading or compiling (or otherwise processing) a file (in the CMU
2407 ;;; the load or compile.
2413 (y-or-n-p (format "Save buffer %s first? "
2425 ;;; commands that process source files (like loading or compiling a file).
2432 ;;; from the last source processing command. SOURCE-MODES is a list of major
2444 "Return string around `point' that starts the current line or nil."
2476 (list (expand-file-name (substitute-in-file-name ans)))))
2498 ;;; process responds with and put it in a pop-up window or on the message
2529 ;; Calls either vertical-motion or term-buffer-vertical-motion
2531 (list 'funcall 'term-vertical-motion count))
2589 ;;; Move DELTA column right (or left if delta < 0 limiting at column 0).
2598 ;; If move-to-column extends the current line it will use the face
2599 ;; from the last character on the line, set the face for the chars
2602 (put-text-property point-at-eol (point) 'face 'default))))
2604 ;; Insert COUNT copies of CHAR in the default face.
2608 (put-text-property old-point (point) 'face 'default)))
2699 (buffer-undo-list t)
2774 ((or (not (or term-pager-count
2796 (when (not (or (eobp) term-insert-mode))
2813 'face term-current-face)
2842 (unless (and term-kill-echo-list
2843 (term-check-kill-echo-list))
2893 (if (or (< (term-current-row) term-scroll-start)
2905 (list (term-current-row)
2913 term-current-face)
2932 term-current-face
3025 (when (or (= (point) save-marker)
3029 (or (eq scroll 'this) (not save-point)))
3064 ;;; Reset the terminal, delete all the content and set the face to the
3073 (setq term-current-face nil)
3079 (setq term-ansi-face-already-done nil)
3133 ;;; 0 (Reset) or unknown (reset anyway)
3135 (setq term-current-face nil)
3141 (setq term-ansi-face-already-done t)
3149 ; term-ansi-face-already-done
3154 (unless term-ansi-face-already-done
3157 (setq term-current-face
3159 (list :background
3163 (list :background
3169 (setq term-current-face
3170 (list :background
3172 (face-foreground 'default)
3176 (face-background 'default)
3179 (setq term-current-face
3180 (append '(:weight bold) term-current-face)))
3182 (setq term-current-face
3183 (append '(:underline t) term-current-face))))
3185 (setq term-current-face
3187 (list :background
3191 (list :foreground
3197 (setq term-current-face
3198 (list :foreground
3203 (setq term-current-face
3204 (append '(:weight bold) term-current-face)))
3206 (setq term-current-face
3207 (append '(:underline t) term-current-face))))))
3209 ;;; (message "Debug %S" term-current-face)
3210 (setq term-ansi-face-already-done nil))
3218 ((or (eq char ?H) ;; cursor motion (terminfo: cup,home)
3330 (if (or (< top 0) (>= top term-height))
3334 (if (or (<= bottom term-scroll-start) (> bottom term-height))
3338 (or (term-using-alternate-sub-buffer)
3412 (or overlay-arrow-position
3415 (cond ((or (< pos (point-min)) (> pos (point-max)))
3496 (list "-- **MORE** "
3565 (or (term-pager-enabled)
3626 (when (or (and (< down 0) (< scroll-needed 0))
3670 (when (and check-for-scroll (or term-scroll-with-delete term-pager-count))
3674 (when (or (/= (point) (point-max)) (< down 0))
3727 (put-text-property saved-point (point) 'face 'default)
3773 ;; If move-to-column extends the current line it will use the face
3774 ;; from the last character on the line, set the face for the chars
3777 (put-text-property pnt-at-eol (point) 'face 'default))
3837 (interactive (list (if term-log-buffer
3843 (if (or (null name) (equal name ""))
3884 ;;; term-dynamic-complete Complete or expand command, filename,
3887 ;;; term-dynamic-list-filename-completions List completions in help buffer.
3896 ;;; 'term-dynamic-list-filename-completions)))
3902 "*If non-nil, automatically list possibilities on partial completion.
3908 DIRSUFFIX and FILESUFFIX are strings added on unambiguous or exact
3937 "Return the word of WORD-CHARS at point, or nil if none is found.
3947 (if (or (eolp) (looking-at non-word))
3954 "Return the filename at point, or nil if none is found.
3987 (prog2 (or (eq (selected-window) (minibuffer-window))
4003 (filename (or (term-match-partial-filename) ""))
4014 (or mini-flag (message "Sole completion")))
4016 (term-dynamic-list-filename-completions))
4024 (or mini-flag (message "Completed")))
4030 (or mini-flag (message "Completed shortest")))
4031 ((or term-completion-autolist
4033 ;; It's not unique, list possible completions.
4034 (term-dynamic-list-filename-completions))
4036 (or mini-flag (message "Partially completed")))))))
4054 "Dynamically complete STUB from CANDIDATES list.
4067 (candidates (mapcar (function (lambda (x) (list x))) candidates))
4091 ((or term-completion-autolist
4093 ;; It's not unique, list possible completions.
4094 (term-dynamic-list-completions completions)
4101 (defun term-dynamic-list-filename-completions ()
4105 (filename (or (term-match-partial-filename) ""))
4111 (term-dynamic-list-completions completions)
4115 (defun term-dynamic-list-completions (completions)
4120 (display-completion-list (sort completions 'string-lessp)))
4148 ;; If no process, or nuked process, crank up a new one and put buffer in
4164 (interactive (list (read-from-minibuffer "Run program: "
4165 (or explicit-shell-file-name
4218 ;;; shell-send-eof term-delchar-or-maybe-eof
4259 ;;; 'term-dynamic-list-filename-completions)))
4277 ;;; hook to add completion functions to. Functions on this list should return