Current File : //usr/local/share/emacs/27.2/lisp/eshell/em-term.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\315\316\317\320\321DD\322\323\324\325\326&\210\315\327\317\320\330DD\331\325\332\323\333&\210\315\334\317\320\335DD\336\325\337\323\340&\210\315\341\317\320\342DD\343\325\344\323\340&\210\315\345\317\320\346DD\347\323\350\325\351&\210\315\352\317\320\353DD\354\325\355%\210\315\356\317\320\357DD\360\323\361\325\355&\207" [require cl-lib esh-util esh-ext 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 custom-declare-variable eshell-term-load-hook funcall function #[0 "\300\207" [nil] 1] "A list of functions to call when loading `eshell-term'." :version "24.1" :type hook eshell-visual-commands #[0 "\300\207" [("vi" "screen" "tmux" "top" "htop" "less" "more" "lynx" "links" "ncftp" "mutt" "pine" "tin" "trn" "elm")] 1] "A list of commands that present their output in a visual fashion.\n\nCommands listed here are run in a term buffer.\n\nSee also `eshell-visual-subcommands' and `eshell-visual-options'." (repeat string) "27.1" eshell-visual-subcommands #[0 "\300\207" [nil] 1] "An alist of subcommands that present their output in a visual fashion.\n\nAn alist of the form\n\n ((COMMAND1 SUBCOMMAND1 SUBCOMMAND2...)\n (COMMAND2 SUBCOMMAND1 ...))\n\nof commands with subcommands that present their output in a\nvisual fashion. A likely entry is\n\n (\"git\" \"log\" \"diff\" \"show\")\n\nbecause git shows logs and diffs using a pager by default.\n\nSee also `eshell-visual-commands' and `eshell-visual-options'." (repeat (cons (string :tag "Command") (repeat (string :tag "Subcommand")))) "24.4" eshell-visual-options #[0 "\300\207" [nil] 1] "An alist of the form\n\n ((COMMAND1 OPTION1 OPTION2...)\n (COMMAND2 OPTION1 ...))\n\nof commands with options that present their output in a visual\nfashion. For example, a sensible entry would be\n\n (\"git\" \"--help\" \"--paginate\")\n\nbecause \"git <command> --help\" shows the command's\ndocumentation with a pager and \"git --paginate <command>\"\nalways uses a pager for output.\n\nSee also `eshell-visual-commands' and `eshell-visual-subcommands'." (repeat (cons (string :tag "Command") (repeat (string :tag "Option")))) eshell-term-name #[0 "\207" [term-term-name] 1] "Name to use for the TERM variable when running visual commands.\nSee `term-term-name' in term.el for more information on how this is\nused." "24.3" string eshell-escape-control-x #[0 "\300\207" [t] 1] "If non-nil, allow <C-x> to be handled by Emacs key in visual buffers.\nSee the variables `eshell-visual-commands',\n`eshell-visual-subcommands', and `eshell-visual-options'. If\nthis variable is set to nil, <C-x> will send that control\ncharacter to the invoked process." boolean eshell-destroy-buffer-when-process-dies #[0 "\300\207" [nil] 1] "If non-nil, term buffers are destroyed after their processes die.\nWARNING: Setting this to non-nil may result in unexpected\nbehavior for short-lived processes, see bug#18108." "25.1"] 8)
#@39 Initialize the `term' interface code.
(defalias 'eshell-term-initialize #[0 "\301\300!\210\302\303BB\211\207" [eshell-interpreter-alist make-local-variable eshell-visual-command-p eshell-exec-visual] 2 (#$ . 3770)])
#@159 Return non-nil when given a visual command.
If either COMMAND or a subcommand in ARGS (e.g. git log) is a
visual command, returns non-nil.
(fn COMMAND ARGS)
(defalias 'eshell-visual-command-p #[514 "\303!\304 \205# \211\235\206# @\305 \"A\235\206# \306\305\n\"A\307\310$\207" [eshell-visual-commands eshell-visual-subcommands eshell-visual-options file-name-nondirectory eshell-interactive-output-p assoc cl-intersection :test string=] 8 (#$ . 3995)])
#@155 Run the specified PROGRAM in a terminal emulation buffer.
ARGS are passed to the program. At the moment, no piping of input is
allowed.
(fn &rest ARGS)
(defalias 'eshell-exec-visual #[128 "\305\306@A\"\211@\307\310AA\"\311\312\"\262!\313\314\315!\314Q!pr\316!\210\317 \210\320\302!\210 \320\303!\210\211\321\211\305%\210\322!\211\203U \323!\324=\203U \325\326\"\210\202Y \327\330!\210\210\331 \210\f\203e \332\333!\210*\266\305\207" [eshell-interpreter-alist eshell-term-name term-term-name eshell-parent-buffer eshell-escape-control-x nil eshell-find-interpreter flatten-tree append mapcar eshell-stringify generate-new-buffer "*" file-name-nondirectory switch-to-buffer term-mode make-local-variable 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] 12 (#$ . 4461)])
#@128 Clean up the buffer visiting PROC.
If `eshell-destroy-buffer-when-process-dies' is non-nil, destroy
the buffer.
(fn PROC MSG)
(defalias 'eshell-term-sentinel #[514 "\302\"\210\205L \303!\211\205J \304!\205J \305!\306=?\205J \307!\310U\205J p=\203G \311\301!\205> \205> \304 !\205> \211\203F \312!\210\210\313!\262\207" [eshell-destroy-buffer-when-process-dies eshell-parent-buffer term-sentinel process-buffer buffer-live-p process-status run process-exit-status 0 boundp switch-to-buffer kill-buffer] 6 (#$ . 5378)])
(provide 'em-term)
Mini Shell