;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:16 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/eshell/em-term.el ;;; in Emacs version 23.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require term custom-declare-group eshell-term nil "This module causes visual commands (e.g., 'vi') to be executed by\nthe `term' package, which comes with Emacs. This package handles most\nof the ANSI control codes, allowing curses-based applications to run\nwithin an Emacs window. The variable `eshell-visual-commands' defines\nwhich commands are considered visual in nature." :tag "Running visual commands" :group eshell-module] 8) #@58 *A list of functions to call when loading `eshell-term'. (custom-declare-variable 'eshell-term-load-hook ''(eshell-term-initialize) '(#$ . -1047) :type 'hook :group 'eshell-term) #@68 *A list of commands that present their output in a visual fashion. (custom-declare-variable 'eshell-visual-commands ''("vi" "screen" "top" "less" "more" "lynx" "ncftp" "pine" "tin" "trn" "elm") '(#$ . -1232) :type '(repeat string) :group 'eshell-term) #@140 *Name to use for the TERM variable when running visual commands. See `term-term-name' in term.el for more information on how this is used. (custom-declare-variable 'eshell-term-name '"eterm" '(#$ . -1491) :type 'string :group 'eshell-term) #@211 *If non-nil, allow to be handled by Emacs key in visual buffers. See the variable `eshell-visual-commands'. If this variable is set to nil, will send that control character to the invoked process. (custom-declare-variable 'eshell-escape-control-x 't '(#$ . -1738) :type 'boolean :group 'eshell-term) #@39 Initialize the `term' interface code. (defalias 'eshell-term-initialize #[nil "\301\300!\210\302\303BB\211\207" [eshell-interpreter-alist make-local-variable #[(command) "\302! \235\207" [command eshell-visual-commands file-name-nondirectory] 2] eshell-exec-visual] 2 (#$ . 2057)]) #@138 Run the specified PROGRAM in a terminal emulation buffer. ARGS are passed to the program. At the moment, no piping of input is allowed. (defalias 'eshell-exec-visual #[(&rest args) "\306\307 @!\211@\310\311\nA A\"\312\313 \")!\314\315\316 !\315Q!pr\317\f!\210\320 \210\321\322!\210\321\323!\210 \324\f \211\306 %\210\325\f!\211 \203^\326 !\327=\203^\330 \331\"\210\202b\332\333!\210)\334 \210!\203o\335\336!\210.\306\207" [eshell-interpreter-alist args interp program term-buf eshell-buf nil eshell-find-interpreter eshell-flatten-list append mapcar eshell-stringify generate-new-buffer "*" file-name-nondirectory switch-to-buffer term-mode make-local-variable term-term-name eshell-parent-buffer term-exec get-buffer-process process-status run set-process-sentinel eshell-term-sentinel error "Failed to invoke visual command" term-char-mode term-set-escape-char 24 eshell-term-name proc eshell-escape-control-x] 7 (#$ . 2349)]) #@35 Destroy the buffer visiting PROC. (defalias 'eshell-term-sentinel #[(proc string) "\304!\211\205C\305 !\205C\306!\307=?\205C\310!\311U\205Cp =\203@\312\302!\2056\n\2056\305\n!\2056\n\211\203?\313 !\210)\314 !)\207" [proc proc-buf eshell-parent-buffer buf process-buffer buffer-live-p process-status run process-exit-status 0 boundp switch-to-buffer kill-buffer] 3 (#$ . 3307)]) (provide 'em-term)