Lines Matching +defs:color +defs:name
115 ;;; if you want custom colors in term.el redefine term-default-fg-color
116 ;;; and term-default-bg-color BEFORE loading it.
188 ;;; If you want to use color ls the best setup is to have a different file
197 ;;; # Configuration file for the color ls utility
203 ;;; # not pipes. 'all' adds color characters to all output. 'none' shuts
215 ;;; # Below are the color init strings for the basic file types. A color init
219 ;;; # Text color codes:
221 ;;; # Background color codes:
236 ;;; # to colorize below. Put the extension, a space, and the color init
314 ;;; # Start up & use color ls
388 ;; replace with expanded/completed name.
485 (defcustom explicit-shell-file-name nil
486 "*If non-nil, is file name to use for explicitly requested inferior shell."
536 (defcustom term-input-ring-file-name nil
537 "*If non-nil, name of the file to read/write input history.
684 (defvar term-ansi-current-color 0)
686 (defvar term-ansi-current-bg-color 0)
700 (defcustom term-default-fg-color 'unspecified
701 "Default color for foreground in `term'."
705 (defcustom term-default-bg-color 'unspecified
706 "Default color for background in `term'."
711 (defvar ansi-term-color-vector
956 The interpreter name is same as buffer name, sans the asterisks.
1002 (setq mode-name "Term")
1025 (make-local-variable 'term-input-ring-file-name)
1041 (setq term-ansi-at-host (system-name))
1059 (make-local-variable 'term-ansi-current-color)
1061 (make-local-variable 'term-ansi-current-bg-color)
1282 name of one."
1287 (defun make-term (name program &optional startfile &rest switches)
1289 The name of the buffer is made by surrounding NAME with `*'s.
1291 Optional third arg STARTFILE is the name of a file to send the contents of to
1293 (let ((buffer (get-buffer-create (concat "*" name "*"))))
1300 (term-exec buffer name program startfile switches)))
1311 (or explicit-shell-file-name
1320 (defun term-exec (buffer name command startfile switches)
1330 (let ((proc (term-exec-1 name buffer command switches)))
1359 (if (null (buffer-name buffer))
1372 (term-handle-exit (process-name proc)
1381 (defun term-handle-exit (process-name msg)
1389 (insert ?\n "Process " process-name " " msg)
1398 (defvar term-term-name "eterm-color")
1400 ; (format term-termcap-string emacs-term-name "TERMCAP=" 24 80)
1419 (defun term-exec-1 (name buffer command switches)
1428 (format "TERM=%s" term-term-name)
1431 term-term-name term-height term-width)
1448 (apply 'start-process name buffer
1478 ;;; term-write-input-ring Write to term-input-ring-file-name.
1483 The name of the file is given by the variable `term-input-ring-file-name'.
1485 If `term-input-ring-file-name' is nil this function does nothing.
1495 (cond ((or (null term-input-ring-file-name)
1496 (equal term-input-ring-file-name ""))
1498 ((not (file-readable-p term-input-ring-file-name))
1501 term-input-ring-file-name)))
1504 (file term-input-ring-file-name)
1532 The name of the file is given by the variable `term-input-ring-file-name'.
1534 If `term-input-ring-file-name' is nil this function does nothing.
1539 (cond ((or (null term-input-ring-file-name)
1540 (equal term-input-ring-file-name "")
1543 ((not (file-writable-p term-input-ring-file-name))
1544 (message "Cannot write history file %s" term-input-ring-file-name))
1548 (file term-input-ring-file-name)
1925 Argument 0 is the command name."
2393 (cond ((and buffer-file-name (memq major-mode source-modes))
2394 (cons (file-name-directory buffer-file-name)
2395 (file-name-nondirectory buffer-file-name)))
2414 (buffer-name buff))))
2466 (defdir (if sfile-p (file-name-directory stringfile)
2468 (deffile (if sfile-p (file-name-nondirectory stringfile)
2470 (ans (read-file-name (if deffile (format "%s(default %s) "
2476 (list (expand-file-name (substitute-in-file-name ans)))))
2667 (file-name-as-directory
2668 (if (and (string= term-ansi-at-host (system-name))
2669 (string= term-ansi-at-user (user-real-login-name)))
2670 (expand-file-name term-ansi-at-dir)
2671 (if (string= term-ansi-at-user (user-real-login-name))
2678 (if (string= term-ansi-at-host (system-name))
2907 term-ansi-current-bg-color
2909 term-ansi-current-color
2920 (setq term-ansi-current-bg-color
2924 term-ansi-current-color
3077 (setq term-ansi-current-color 0)
3080 (setq term-ansi-current-bg-color 0))
3119 (setq term-ansi-current-color (- parameter 29)))
3123 (setq term-ansi-current-color 0))
3127 (setq term-ansi-current-bg-color (- parameter 39)))
3131 (setq term-ansi-current-bg-color 0))
3139 (setq term-ansi-current-color 0)
3142 (setq term-ansi-current-bg-color 0)))
3150 ; term-ansi-current-color
3151 ; term-ansi-current-bg-color)
3158 (if (= term-ansi-current-color 0)
3160 term-default-fg-color
3162 term-default-fg-color)
3164 (elt ansi-term-color-vector term-ansi-current-color)
3166 (elt ansi-term-color-vector term-ansi-current-color)))
3171 (if (= term-ansi-current-color 0)
3173 (elt ansi-term-color-vector term-ansi-current-color))
3175 (if (= term-ansi-current-bg-color 0)
3177 (elt ansi-term-color-vector term-ansi-current-bg-color))))
3186 (if (= term-ansi-current-bg-color 0)
3188 term-default-bg-color
3190 term-default-bg-color)
3192 (elt ansi-term-color-vector term-ansi-current-bg-color)
3194 (elt ansi-term-color-vector term-ansi-current-bg-color)))
3199 (elt ansi-term-color-vector term-ansi-current-color)
3201 (elt ansi-term-color-vector term-ansi-current-bg-color)))
3835 (defun term-start-output-log (name)
3841 (buffer-name (current-buffer)))
3843 (if (or (null name) (equal name ""))
3846 (if (get-buffer name)
3849 (set-buffer (get-buffer-create name))
3853 (setq term-log-buffer (get-buffer name))
3855 (buffer-name term-log-buffer))))
3889 ;;; replace with expanded/completed name.
3923 (defvar term-file-name-prefix ""
3930 ;; Return expanded DIRECTORY, with `term-file-name-prefix' if absolute.
3931 (expand-file-name (if (file-name-absolute-p directory)
3932 (concat term-file-name-prefix directory)
3957 (and filename (substitute-in-file-name filename))))
3988 (message "Completing file name..."))
4004 (pathdir (file-name-directory filename))
4005 (pathnondir (file-name-nondirectory filename))
4007 (completion (file-name-completion pathnondir directory))
4018 (let ((file (concat (file-name-as-directory directory) completion)))
4019 (insert (substring (directory-file-name completion)
4021 (cond ((symbolp (file-name-completion completion directory))
4046 see `expand-file-name' and `substitute-in-file-name'. For completion see
4049 (replace-match (expand-file-name (term-match-partial-filename)) t t)
4106 (pathdir (file-name-directory filename))
4107 (pathnondir (file-name-nondirectory filename))
4109 (completions (file-name-all-completions pathnondir directory)))
4141 (defun term-ansi-make-term (name program &optional startfile &rest switches)
4143 The name of the buffer is NAME.
4145 Optional third arg STARTFILE is the name of a file to send the contents of to
4147 (let ((buffer (get-buffer-create name )))
4154 (term-exec buffer name program startfile switches)))
4157 (defvar term-ansi-buffer-name nil)
4159 (defvar term-ansi-buffer-base-name nil)
4162 (defun ansi-term (program &optional new-buffer-name)
4165 (or explicit-shell-file-name
4170 ;; Pick the name of the new buffer.
4171 (setq term-ansi-buffer-name
4172 (if new-buffer-name
4173 new-buffer-name
4174 (if term-ansi-buffer-base-name
4175 (if (eq term-ansi-buffer-base-name t)
4176 (file-name-nondirectory program)
4177 term-ansi-buffer-base-name)
4180 (setq term-ansi-buffer-name (concat "*" term-ansi-buffer-name "*"))
4186 (setq term-ansi-buffer-name (generate-new-buffer-name term-ansi-buffer-name))
4187 (setq term-ansi-buffer-name (term-ansi-make-term term-ansi-buffer-name program))
4189 (set-buffer term-ansi-buffer-name)
4199 (switch-to-buffer term-ansi-buffer-name))
4266 ;;; (setq mode-name "Shell")