Lines Matching defs:term
1 ;;; em-term.el --- running visual commands
25 (provide 'em-term)
29 (defgroup eshell-term nil
31 the `term' package, which comes with Emacs. This package handles most
44 ;; Eshell uses the term.el package, and invokes them in a separate
48 (require 'term)
52 (defcustom eshell-term-load-hook '(eshell-term-initialize)
53 "*A list of functions to call when loading `eshell-term'."
55 :group 'eshell-term)
65 :group 'eshell-term)
67 (defcustom eshell-term-name "eterm"
69 See `term-term-name' in term.el for more information on how this is
72 :group 'eshell-term)
79 :group 'eshell-term)
87 (defun eshell-term-initialize ()
88 "Initialize the `term' interface code."
108 (term-buf
113 (switch-to-buffer term-buf)
114 (term-mode)
115 (set (make-local-variable 'term-term-name) eshell-term-name)
118 (term-exec term-buf program program nil args)
119 (let ((proc (get-buffer-process term-buf)))
121 (set-process-sentinel proc 'eshell-term-sentinel)
123 (term-char-mode)
125 (term-set-escape-char ?\C-x))))
128 (defun eshell-term-sentinel (proc string)
148 ; (defvar eshell-term-raw-map nil
150 ; (defvar eshell-term-escape-char nil
151 ; "Escape character for char-sub-mode of term mode.
152 ; Do not change it directly; use term-set-escape-char instead.")
153 ; (defvar eshell-term-raw-escape-map nil)
155 ; (defun eshell-term-send-raw-string (chars)
159 ; (defun eshell-term-send-raw ()
167 ; (eshell-term-send-raw-string (make-string 1 last-input-char)))
169 ; (defun eshell-term-send-raw-meta ()
180 ; (eshell-term-send-raw-string (if (and (numberp last-input-char)
186 ; (defun eshell-term-mouse-paste (click arg)
190 ; (eshell-term-send-raw-string
197 ; (eshell-term-send-raw-string
205 ; (defun eshell-term-send-up () (interactive) (eshell-term-send-raw-string "\eOA"))
206 ; (defun eshell-term-send-down () (interactive) (eshell-term-send-raw-string "\eOB"))
207 ; (defun eshell-term-send-right () (interactive) (eshell-term-send-raw-string "\eOC"))
208 ; (defun eshell-term-send-left () (interactive) (eshell-term-send-raw-string "\eOD"))
209 ; (defun eshell-term-send-home () (interactive) (eshell-term-send-raw-string "\e[1~"))
210 ; (defun eshell-term-send-end () (interactive) (eshell-term-send-raw-string "\e[4~"))
211 ; (defun eshell-term-send-prior () (interactive) (eshell-term-send-raw-string "\e[5~"))
212 ; (defun eshell-term-send-next () (interactive) (eshell-term-send-raw-string "\e[6~"))
213 ; (defun eshell-term-send-del () (interactive) (eshell-term-send-raw-string "\C-?"))
214 ; (defun eshell-term-send-backspace () (interactive) (eshell-term-send-raw-string "\C-H"))
216 ; (defun eshell-term-set-escape-char (c)
217 ; "Change term-escape-char and keymaps that depend on it."
218 ; (if eshell-term-escape-char
219 ; (define-key eshell-term-raw-map eshell-term-escape-char 'eshell-term-send-raw))
221 ; (define-key eshell-term-raw-map c eshell-term-raw-escape-map)
222 ; ;; Define standard bindings in eshell-term-raw-escape-map
223 ; (define-key eshell-term-raw-escape-map "\C-x"
225 ; (define-key eshell-term-raw-escape-map "\C-v"
227 ; (define-key eshell-term-raw-escape-map "\C-u"
229 ; (define-key eshell-term-raw-escape-map c 'eshell-term-send-raw))
231 ; (defun eshell-term-char-mode ()
232 ; "Switch to char (\"raw\") sub-mode of term mode.
236 ; (if (not eshell-term-raw-map)
241 ; (define-key map (make-string 1 i) 'eshell-term-send-raw)
242 ; (define-key esc-map (make-string 1 i) 'eshell-term-send-raw-meta)
245 ; (setq eshell-term-raw-map map)
246 ; (setq eshell-term-raw-escape-map
249 ; (define-key eshell-term-raw-map [button2] 'eshell-term-mouse-paste)
250 ; (define-key eshell-term-raw-map [mouse-2] 'eshell-term-mouse-paste))
251 ; (define-key eshell-term-raw-map [up] 'eshell-term-send-up)
252 ; (define-key eshell-term-raw-map [down] 'eshell-term-send-down)
253 ; (define-key eshell-term-raw-map [right] 'eshell-term-send-right)
254 ; (define-key eshell-term-raw-map [left] 'eshell-term-send-left)
255 ; (define-key eshell-term-raw-map [delete] 'eshell-term-send-del)
256 ; (define-key eshell-term-raw-map [backspace] 'eshell-term-send-backspace)
257 ; (define-key eshell-term-raw-map [home] 'eshell-term-send-home)
258 ; (define-key eshell-term-raw-map [end] 'eshell-term-send-end)
259 ; (define-key eshell-term-raw-map [prior] 'eshell-term-send-prior)
260 ; (define-key eshell-term-raw-map [next] 'eshell-term-send-next)
261 ; (eshell-term-set-escape-char ?\C-c))))
263 ; (defun eshell-term-line-mode ()
264 ; "Switch to line (\"cooked\") sub-mode of eshell-term mode."
265 ; (use-local-map term-old-mode-map))
270 ;;; em-term.el ends here