| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/term.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:32 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/term.el
;;; in Emacs version 24.3.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst term-protocol-version "0.96")
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\207" [require ring ehelp custom-declare-group term nil "General command interpreter in a window." :group processes] 6)
#@29 Size of input history ring.
(defvar term-input-ring-size 32 (#$ . 770))
#@92 When using alternate sub-buffer,
contains saved term-home-marker from original sub-buffer.
(defvar term-saved-home-marker nil (#$ . 848))
#@62 (current-column) at start of screen line, or nil if unknown.
(defvar term-start-line-column 0 (#$ . 992))
#@44 If non-nil, is cache for (current-column).
(defvar term-current-column 0 (#$ . 1104))
#@67 Current vertical row (relative to home-marker) or nil if unknown.
(defvar term-current-row 0 (#$ . 1196))
(defvar term-insert-mode nil)
#@365 State of the terminal emulator:
state 0: Normal state
state 1: Last character was a graphic in the last column.
If next char is graphic, first move one column right
(and line warp) before displaying it.
This emulates (more or less) the behavior of xterm.
state 2: seen ESC
state 3: seen ESC [ (or ESC [ ?)
state 4: term-terminal-parameter contains pending output.
(defvar term-terminal-state 0 (#$ . 1339))
#@51 A queue of strings whose echo we want suppressed.
(defvar term-kill-echo-list nil (#$ . 1752))
(defvar term-current-face 'term)
#@48 Top-most line (inclusive) of scrolling region.
(defvar term-scroll-start 0 (#$ . 1886))
#@69 Number of lines before we need to page; if nil, paging is disabled.
(defvar term-pager-count nil (#$ . 1980))
(defvar term-saved-cursor nil)
(defvar term-log-buffer nil)
#@241 If t, forward scrolling should be implemented by delete to
top-most line(s); and if nil, scrolling should be implemented
by moving term-home-marker. It is set to t if there is a
(non-default) scroll-region OR the alternate buffer is used.
(defvar term-scroll-with-delete nil (#$ . 2157))
#@41 Saves the old keymap when in char mode.
(defvar term-old-mode-map nil (#$ . 2452))
#@32 Saves old keymap while paging.
(defvar term-pager-old-local-map nil (#$ . 2541))
#@74 If non-nil, is file name to use for explicitly requested inferior shell.
(custom-declare-variable 'explicit-shell-file-name nil '(#$ . 2628) :type '(choice (const nil) file) :group 'term)
#@371 Regexp to recognize prompts in the inferior process.
Defaults to "^", the null string at BOL.
Good choices:
Canonical Lisp: "^[^> \n]*>+:? *" (Lucid, franz, kcl, T, cscheme, oaklisp)
Lucid Common Lisp: "^\\(>\\|\\(->\\)+\\) *"
franz: "^\\(->\\|<[0-9]*>:\\) *"
kcl: "^>+ *"
shell: "^[^#$%>\n]*[#$%>] *"
T: "^>+ *"
This is a good thing to set in mode hooks.
(defvar term-prompt-regexp "^" (#$ . 2823))
#@381 List of characters to recognize as separate arguments in input.
Strings comprising a character in this list will separate the arguments
surrounding them, and also be regarded as arguments in their own right
(unlike whitespace). See `term-arguments'.
Defaults to the empty list.
For shells, a good value is (?\| ?& ?< ?> ?\( ?\) ?\;).
This is a good thing to set in mode hooks.
(defvar term-delimiter-argument-list nil (#$ . 3244))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307&\210\300\313\302\314\304\312\306\307&\210\300\315\302\316\304\312\306\307&\210\300\317\302\320\304\312\306\307&\207" [custom-declare-variable term-input-autoexpand nil "If non-nil, expand input command history references on completion.\nThis mirrors the optional behavior of tcsh (its autoexpand and histlit).\n\nIf the value is `input', then the expansion is seen on input.\nIf the value is `history', then the expansion is only when inserting\ninto the buffer's input ring. See also `term-magic-space' and\n`term-dynamic-complete'.\n\nThis variable is buffer-local." :type (choice (const nil) (const t) (const input) (const history)) :group term term-input-ignoredups "If non-nil, don't add input matching the last on the input ring.\nThis mirrors the optional behavior of bash.\n\nThis variable is buffer-local." boolean term-input-ring-file-name "If non-nil, name of the file to read/write input history.\nSee also `term-read-input-ring' and `term-write-input-ring'.\n\nThis variable is buffer-local, and is a good thing to set in mode hooks." term-scroll-to-bottom-on-output "Controls whether interpreter output causes window to scroll.\nIf nil, then do not scroll. If t or `all', scroll all windows showing buffer.\nIf `this', scroll only the selected window.\nIf `others', scroll only those that are not the selected window.\n\nThe default is nil.\n\nSee variable `term-scroll-show-maximum-output'.\nThis variable is buffer-local." term-scroll-show-maximum-output "Controls how interpreter output causes window to scroll.\nIf non-nil, then show the maximum output when the window is scrolled.\n\nSee variable `term-scroll-to-bottom-on-output'.\nThis variable is buffer-local."] 8)
(defvar term-pending-frame nil)
#@312 Function that submits old text in term mode.
This function is called when return is typed while the point is in old text.
It returns the text to be submitted as process input. The default is
`term-get-old-input-default', which grabs the current line, and strips off
leading text matching `term-prompt-regexp'.
(defvar term-get-old-input 'term-get-old-input-default (#$ . 5494))
#@188 List of functions called to perform completion.
Functions should return non-nil if completion was performed.
See also `term-dynamic-complete'.
This is a good thing to set in mode hooks.
(defvar term-dynamic-complete-functions '(term-replace-by-expanded-history term-dynamic-complete-filename) (#$ . 5880))
#@190 Predicate for filtering additions to input history.
Only inputs answering true to this function are saved on the input
history list. Default is to save anything that isn't all whitespace.
(defvar term-input-filter #[(str) "\301\302\"?\207" [str string-match "\\`\\s *\\'"] 3] (#$ . 6194))
#@160 Functions to call before input is sent to the process.
These functions get one argument, a string containing the text to send.
This variable is buffer-local.
(defvar term-input-filter-functions nil (#$ . 6492))
#@295 Function to actually send to PROCESS the STRING submitted by user.
Usually this is just `term-simple-send', but if your mode needs to
massage the input string, this is your hook. This is called from
the user command `term-send-input'. `term-simple-send' just sends
the string plus a newline.
(defvar term-input-sender 'term-simple-send (#$ . 6711))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\313\306\307&\207" [custom-declare-variable term-eol-on-send t "Non-nil means go to the end of the line before sending input.\nSee `term-send-input'." :type boolean :group term term-mode-hook 'nil "Called upon entry into term mode.\nThis is run before the process is cranked up." hook term-exec-hook 'nil "Called each time a process is exec'd by `term-exec'.\nThis is called after the process is cranked up. It is useful for things that\nmust be done each time a process is executed in a term mode buffer (e.g.,\n`process-kill-without-query'). In contrast, `term-mode-hook' is only\nexecuted once when the buffer is created."] 8)
#@23 Keymap for Term mode.
(defvar term-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\320#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\302\360\361#\210\302\362\363#\210\302\364\365#\210\366\367\370\371$\210\366\367\372\373$\210)\207" [map make-sparse-keymap define-key "p" term-previous-input "n" term-next-input "r" term-previous-matching-input "s" term-next-matching-input [138412146] term-previous-matching-input-from-input [138412147] term-next-matching-input-from-input "\f" term-show-output "
" term-send-input "" term-delchar-or-maybe-eof "" term-bol "" term-kill-input "" backward-kill-word "" term-interrupt-subjob "" term-stop-subjob " " term-quit-subjob "
" term-copy-old-input "" term-kill-output "" "" term-show-maximum-output "\f" term-dynamic-list-input-ring "" term-next-prompt "" term-previous-prompt "" term-send-eof " " term-char-mode "\n" term-line-mode "" term-pager-toggle easy-menu-do-define nil "Complete menu for Term mode." ("Complete" ["Complete Before Point" term-dynamic-complete t] ["Complete File Name" term-dynamic-complete-filename t] ["File Completion Listing" term-dynamic-list-filename-completions t] ["Expand File Name" term-replace-by-expanded-filename t]) "In/Out menu for Term mode." ("In/Out" ["Expand History Before Point" term-replace-by-expanded-history term-input-autoexpand] ["List Input History" term-dynamic-list-input-ring t] ["Previous Input" term-previous-input t] ["Next Input" term-next-input t] ["Previous Matching Current Input" term-previous-matching-input-from-input t] ["Next Matching Current Input" term-next-matching-input-from-input t] ["Previous Matching Input..." term-previous-matching-input t] ["Next Matching Input..." term-next-matching-input t] ["Backward Matching Input..." term-backward-matching-input t] ["Forward Matching Input..." term-forward-matching-input t] ["Copy Old Input" term-copy-old-input t] ["Kill Current Input" term-kill-input t] ["Show Current Output Group" term-show-output t] ["Show Maximum Output" term-show-maximum-output t] ["Backward Output Group" term-previous-prompt t] ["Forward Output Group" term-next-prompt t] ["Kill Current Output Group" term-kill-output t])] 5) (#$ . 7809))
#@113 Escape character for char sub-mode of term mode.
Do not change it directly; use `term-set-escape-char' instead.
(defvar term-escape-char nil (#$ . 10376))
#@33 Keymap used in Term pager mode.
(defvar term-pager-break-map (byte-code "\301 \302\303\304\305 \303\"#\210\302\306\304\305 \306\"#\210\302\307\304\305 \307\"#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\315#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210)\207" [map make-keymap define-key "" lookup-key current-global-map "" "" " " term-pager-page "
" term-pager-line "?" term-pager-help "h" "b" term-pager-back-page "" term-pager-back-line "q" term-pager-discard "D" term-pager-disable "<" term-pager-bob ">" term-pager-eob] 6) (#$ . 10537))
#@123 True if communications via pty; false if by pipe. Buffer local.
This is to work around a bug in Emacs process signaling.
(defvar term-ptyp t (#$ . 11184))
#@95 Last string searched for by term input history search, for defaulting.
Buffer local variable.
(defvar term-last-input-match "" (#$ . 11346))
(defvar term-input-ring nil)
#@40 Index of last matched history element.
(defvar term-input-ring-index nil (#$ . 11522))
#@47 Input previously used to match input history.
(defvar term-matching-input-from-input-string "" (#$ . 11615))
(defvar term-pager-filter t)
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\306\302\303#\210\300\307\302\303#\210\300\310\302\303#\210\300\311\302\303#\207" [put term-input-ring permanent-local t term-input-ring-index term-input-autoexpand term-input-filter-functions term-scroll-to-bottom-on-output term-scroll-show-maximum-output term-ptyp] 4)
(defalias 'term-in-char-mode '(macro . #[nil "\300\207" [(eq (current-local-map) term-raw-map)] 1]))
(defalias 'term-in-line-mode '(macro . #[nil "\300\207" [(not (term-in-char-mode))] 1]))
(defalias 'term-pager-enabled '(macro . #[nil "\300\207" [term-pager-count] 1]))
(defalias 'term-handling-pager '(macro . #[nil "\300\207" [term-pager-old-local-map] 1]))
(defalias 'term-using-alternate-sub-buffer '(macro . #[nil "\300\207" [term-saved-home-marker] 1]))
(defvar term-ansi-at-host nil)
(defvar term-ansi-at-dir nil)
(defvar term-ansi-at-user nil)
(defvar term-ansi-at-message nil)
(defvar term-ansi-at-save-user nil)
(defvar term-ansi-at-save-pwd nil)
(defvar term-ansi-at-save-anon nil)
(defvar term-ansi-current-bold nil)
(defvar term-ansi-current-color 0)
(defvar term-ansi-face-already-done nil)
(defvar term-ansi-current-bg-color 0)
(defvar term-ansi-current-underline nil)
(defvar term-ansi-current-reverse nil)
(defvar term-ansi-current-invisible nil)
(defvar term-terminal-more-parameters 0)
(defvar term-terminal-previous-parameter-2 -1)
(defvar term-terminal-previous-parameter-3 -1)
(defvar term-terminal-previous-parameter-4 -1)
(defvar ansi-term-color-vector [term term-color-black term-color-red term-color-green term-color-yellow term-color-blue term-color-magenta term-color-cyan term-color-white])
(byte-code "\302\300\303\304\305\306\307\310&\210\311\300\312\313#\210\302\301\303\304\305\306\307\314&\210\311\301\312\313#\210\315\306\316\317\320 \321BBBBBC\322\305\306%\210\315\323\324\325\305\306%\210\315\326\327\330\305\306%\210\315\331\332\333\305\306%\210\315\334\335\336\305\306%\210\315\337\340\341\305\306%\210\315\342\343\344\305\306%\210\315\345\346\347\305\306%\210\315\350\351\352\305\306%\210\315\353\354\355\305\306%\210\315\356\357\360\305\306%\210\302\361\362\363\305\306\307\364&\207" [term-default-fg-color term-default-bg-color custom-declare-variable nil "If non-nil, default color for foreground in Term mode." :group term :type (choice (const nil) (string :tag "color")) make-obsolete-variable "use the face `term' instead." "24.3" (choice (const nil) (string :tag "color")) custom-declare-face t :foreground :background (:inherit default) "Default face to use in Term mode." term-bold ((t :bold t)) "Default face to use for bold text." term-underline ((t :underline t)) "Default face to use for underlined text." term-color-black ((t :foreground "black" :background "black")) "Face used to render black color code." term-color-red ((t :foreground "red3" :background "red3")) "Face used to render red color code." term-color-green ((t :foreground "green3" :background "green3")) "Face used to render green color code." term-color-yellow ((t :foreground "yellow3" :background "yellow3")) "Face used to render yellow color code." term-color-blue ((t :foreground "blue2" :background "blue2")) "Face used to render blue color code." term-color-magenta ((t :foreground "magenta3" :background "magenta3")) "Face used to render magenta color code." term-color-cyan ((t :foreground "cyan3" :background "cyan3")) "Face used to render cyan color code." term-color-white ((t :foreground "white" :background "white")) "Face used to render white color code." term-buffer-maximum-size 2048 "The maximum size in lines for term buffers.\nTerm buffers are truncated from the top to be no greater than this number.\nNotice that a setting of 0 means \"don't truncate anything\". This variable\nis buffer-local." integer] 8)
#@71 Keyboard map for sending characters directly to the inferior process.
(defvar term-raw-map (byte-code "\303 \303 \304\211\305W\2033 \306\307\310\n\"\311#\210\n\312=\204, \n\313=\204, \306 \307\310\n\"\314#\210\nT\211\202 \306\315\311#\210\306\316 #\210\306\317\320#\210\306\321\322#\210\306\323\324#\210\306\325\326#\210\306\327\330#\210\306\331\332#\210\306\333\332#\210\306\334\335#\210\306\336\337#\210\306\340\341#\210\306\342\343#\210\306\344\345#\210\306\346\347#\210\306\350\351#\210\306\352\353#\210\306\354\355#\210+\207" [map esc-map i make-keymap 0 128 define-key make-string 1 term-send-raw 79 91 term-send-raw-meta [remap self-insert-command] "" [mouse-2] term-mouse-paste [up] term-send-up [down] term-send-down [right] term-send-right [left] term-send-left [delete] term-send-del [deletechar] [backspace] term-send-backspace [home] term-send-home [end] term-send-end [insert] term-send-insert [S-prior] scroll-down [S-next] scroll-up [S-insert] term-paste [prior] term-send-prior [next] term-send-next] 6) (#$ . 15565))
#@30 Terminal menu for Term mode.
(defvar term-terminal-menu nil (#$ . 16632))
(byte-code "\303\304 \nE\305\306$\207" [term-mode-map term-raw-map term-pager-break-map easy-menu-do-define term-terminal-menu "Terminal menu for Term mode." ("Terminal" ["Line mode" term-line-mode :active (term-in-char-mode) :help "Switch to line (cooked) sub-mode of term mode"] ["Character mode" term-char-mode :active (term-in-line-mode) :help "Switch to char (raw) sub-mode of term mode"] ["Paging" term-pager-toggle :style toggle :selected term-pager-count :help "Toggle paging feature"])] 5)
#@29 Signals menu for Term mode.
(defvar term-signals-menu nil (#$ . 17212))
(byte-code "\303\304 \nE\305\306$\207" [term-mode-map term-raw-map term-pager-break-map easy-menu-do-define term-signals-menu "Signals menu for Term mode." ("Signals" ["BREAK" term-interrupt-subjob :active t :help "Interrupt the current subjob"] ["STOP" term-stop-subjob :active t :help "Stop the current subjob"] ["CONT" term-continue-subjob :active t :help "Send CONT signal to process buffer's process group"] ["QUIT" term-quit-subjob :active t :help "Send quit signal to the current subjob"] ["KILL" term-kill-subjob :active t :help "Send kill signal to the current subjob"] ["EOF" term-send-eof :active t :help "Send an EOF to the current buffer's process"])] 5)
#@27 Menu for Term pager mode.
(defvar term-pager-menu nil (#$ . 17959))
(easy-menu-do-define 'term-pager-menu term-pager-break-map "Menu for Term pager mode." '("More pages?" ["1 page forwards" term-pager-page t] ["1 page backwards" term-pager-back-page t] ["1 line backwards" term-pager-back-line t] ["1 line forwards" term-pager-line t] ["Goto to beginning" term-pager-bob t] ["Goto to end" term-pager-eob t] ["Discard remaining output" term-pager-discard t] ["Disable paging" term-pager-toggle t] ["Help" term-pager-help t]))
(defvar term-raw-escape-map (byte-code "\301 \302\303\"\210\304\305\306\307 \305\"#\210\304\310\306\307 \310\"#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210)\207" [map make-sparse-keymap set-keymap-parent Control-X-prefix define-key "" lookup-key current-global-map "" "" term-pager-toggle " " term-char-mode "\n" term-line-mode [134217848] execute-extended-command] 6))
#@58 Change `term-escape-char' and keymaps that depend on it.
(defalias 'term-set-escape-char #[(key) "\203\n \304 \305#\210\306\n!\304 #\210\304 \305#\207" [term-escape-char term-raw-map key term-raw-escape-map define-key term-send-raw vector] 4 (#$ . 18900)])
(byte-code "\301\206 \302!\207" [term-escape-char term-set-escape-char 3] 2)
(defalias 'term-window-width #[nil "\301 \203 \203 \302\303\304\"\305U\204 \306 \207\306 S\207" [overflow-newline-into-fringe display-graphic-p frame-parameter nil right-fringe 0 window-width] 3])
(put 'term-mode 'mode-class 'special)
(defvar term-display-table (byte-code "\303!\206 \304 \305\306\211\307W\203! \n \310 !I\210 T\211\202 \311\211\312W\2037 \n \310 !I\210 T\211\202$ \313\211\314W\203M \n \310 !I\210 T\211\202: \n*\207" [standard-display-table i dt copy-sequence make-display-table nil 0 10 vector 11 32 128 256] 5))
(defalias 'term-ansi-reset #[nil "\306\307\211\307\310\307\211 \310\211\n\207" [term-current-face term-ansi-current-underline term-ansi-current-bold term-ansi-current-reverse term-ansi-current-color term-ansi-current-invisible term nil 0 term-ansi-face-already-done term-ansi-current-bg-color] 3])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [term-mode-hook variable-documentation put purecopy "Hook run when entering Term mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp term-mode-map definition-name term-mode] 5)
(defvar term-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [term-mode-map variable-documentation put purecopy "Keymap for `term-mode'." boundp term-mode-syntax-table definition-name term-mode] 5)
(defvar term-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [term-mode-syntax-table variable-documentation put purecopy "Syntax table for `term-mode'." term-mode-abbrev-table definition-name term-mode] 5)
(defvar term-mode-abbrev-table (progn (define-abbrev-table 'term-mode-abbrev-table nil) term-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [term-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `term-mode'." term-mode derived-mode-parent nil] 5)
#@1668 Major mode for interacting with an inferior interpreter.
The interpreter name is same as buffer name, sans the asterisks.
There are two submodes: line mode and char mode. By default, you are
in char mode. In char sub-mode, each character (except
`term-escape-char') is sent immediately to the subprocess.
The escape character is equivalent to the usual meaning of C-x.
In line mode, you send a line of input at a time; use
\[term-send-input] to send.
In line mode, this maintains an input history of size
`term-input-ring-size', and you can access it with the commands
\[term-next-input], \[term-previous-input], and
\[term-dynamic-list-input-ring]. Input ring history expansion can be
achieved with the commands \[term-replace-by-expanded-history] or
\[term-magic-space]. Input ring expansion is controlled by the
variable `term-input-autoexpand', and addition is controlled by the
variable `term-input-ignoredups'.
Input to, and output from, the subprocess can cause the window to scroll to
the end of the buffer. See variables `term-scroll-to-bottom-on-input',
and `term-scroll-to-bottom-on-output'.
If you accidentally suspend your process, use \[term-continue-subjob]
to continue it.
This mode can be customized to create specific modes for running
particular subprocesses. This can be done by setting the hooks
`term-input-filter-functions', `term-input-filter',
`term-input-sender' and `term-get-old-input' to appropriate functions,
and the variable `term-prompt-regexp' to the appropriate regular
expression.
Commands in raw mode:
\{term-raw-map}
Commands in line mode:
\{term-mode-map}
Entry to this mode runs the hooks on `term-mode-hook'.
(defalias 'term-mode #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210
@\315ABC\306\316!\210\317\320!\306\321!\210\322 S\306\323!\210\324 \306\325!\210\326 \306\327!\210\326 \306\330!\210\331\306\332!\210\332K\306\333!\210\306\334!\210\306\335!\210\306\336!\210\306\337!\210\306\340!\210\306\341!\210\306\342!\210 \204\203 \343 ! \306\344!\210\345 $\306\346!\210D&\306\347!\210\315'\306\350!\210\306\351!\210\306\352!\210\306\353!\210\306\354!\210\306\355!\210\306\356!\210\306\357!\210\306\360!\210\306\361!\210\306\362!\210\306\334!\210\306\363!\210\306\364!\210\306\365!\210\306\366!\210\306\367!\210\306\370!\210\306\371!\210\306\372!\210\306\373!\210\306\374!\210\306\375!\210\306\376!\210\306\377!\210?\306\201K !\210\306\201L !\210\306\201M !\210\306\201N !\210\306\201O !\210\306\201P !\210\306\201Q !\210\306\201R !\210\306\201S !\210\306\201T !\210\306\201U !\210\306\201V !\210\306\201W !\210\306\201X !\210\306\201Y !\210\306\201Z !\210\306\201[ !\210\306\201\\ !\210\306\201] !\210\306\201^ !\210\306\201_ !\210\306\201E !\210\326 E\306\201` !\210\201a \210\306\201F !\210\315F\306\201G !\210\315G\306\201H !\210\201b H\201c I!\210\201c J!\210 \204\313\343 ! \201d \210)\201e \201f !\207" [delay-mode-hooks major-mode mode-name term-mode-map term-mode-syntax-table term-mode-abbrev-table make-local-variable t kill-all-local-variables term-mode "Term" use-local-map set-syntax-table nil term-home-marker copy-marker 0 term-height window-height term-width term-window-width term-last-input-start make-marker term-last-input-end term-last-input-match "" term-command-hook term-saved-home-marker term-terminal-parameter term-saved-cursor term-prompt-regexp term-input-ring-size term-input-ring term-input-ring-file-name term-input-ring-index make-ring term-ansi-at-host system-name term-ansi-at-dir term-ansi-at-message ange-ftp-default-user ange-ftp-default-password ange-ftp-generate-anonymous-password term-buffer-maximum-size term-ansi-current-bold term-ansi-current-color term-ansi-face-already-done term-ansi-current-bg-color term-ansi-current-underline term-ansi-current-reverse term-ansi-current-invisible term-terminal-previous-parameter term-terminal-previous-parameter-2 term-terminal-previous-parameter-3 term-terminal-previous-parameter-4 term-terminal-more-parameters term-terminal-state term-kill-echo-list term-start-line-column term-current-column term-current-row term-log-buffer term-scroll-start term-scroll-end local-abbrev-table indent-tabs-mode term-display-table buffer-display-table default-directory term-pending-delete-marker term-pending-frame cua-mode font-lock-defaults term-terminal-menu term-signals-menu term-scroll-with-delete term-pager-count term-pager-old-local-map term-old-mode-map term-insert-mode term-dynamic-complete-functions term-completion-fignore term-get-old-input term-matching-input-from-input-string term-input-autoexpand term-input-ignoredups term-delimiter-argument-list term-input-filter-functions term-input-filter term-input-sender term-eol-on-send term-scroll-to-bottom-on-output term-scroll-show-maximum-output term-ptyp term-exec-hook term-vertical-motion term-current-face term-ansi-reset (nil t) easy-menu-add term-update-mode-line run-mode-hooks term-mode-hook] 2 (#$ . 21341) nil])
(defalias 'term-reset-size #[(height width) "\n\306\211\306 \307\310\"\207" [height term-height width term-width term-start-line-column term-current-row nil term-set-scroll-region 0 term-current-column] 4])
(defalias 'term-check-kill-echo-list #[nil "\306`\307\216\306\210 \203H @\211 G `
Z\211 \neY\203A \f\n`{\230\203A \310
[!\210 A\306\211 \f\306\211
\311\202D A+\202 )\n+\207" [term-kill-echo-list save-point found cur str len nil ((byte-code "\204 b\210\302\207" [found save-point nil] 1)) delete-char t start term-current-column term-current-row term-start-line-column] 4])
(defalias 'term-check-size #[(process) "\303 U\203 \304 U?\205 \305\303 \304 \"\210\306\n #\207" [term-height term-width process window-text-height term-window-width term-reset-size set-process-window-size] 4])
(defalias 'term-send-raw-string #[(chars) "\306 \204\n \205{ \n\307=\203 \242\307=\202 \n\203P \310 \203P \311 \203P \2033 \312\313 \"\210\306\202P \314 \315 U\204P \316\313!\204G \317\313!\204P \312\313\314 \315 {\"\210\204l \320=\204f \242\307=\203l A\204l \306\211\202{ \242\307=\203v A\306\321\322!)\210\323p!\211 \204\213 \324\325!\202\236 \326
!b\210\203\231 \327 \330
\")\207" [force transient-mark-mode select-active-regions saved-region-selection mark-active proc nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook get-buffer-process error "Current buffer has no process" process-mark term-current-row process-send-string term-pager-count chars] 5])
#@89 Send the last character typed through the terminal-emulator
without any interpretation.
(defalias 'term-send-raw #[nil "\301 \302\303\211GSH!!)\207" [keys this-command-keys term-send-raw-string string] 4 (#$ . 27954) nil])
(defalias 'term-send-raw-meta #[nil "\2119\203\" \305N\211\203 \n@ 9\203! \306N\211\203! \n) \247\205J \307 !\310\311\312 !\" \313 >\203= \310\314 \"\315\316\317\320\321 \fC\"!\"!*)\207" [last-input-event char tmp mods base event-symbol-elements ascii-character event-basic-type delq meta event-modifiers control shift term-send-raw-string format "%c" event-convert-list append] 8 nil nil])
#@58 Insert the primary selection at the position clicked on.
(defalias 'term-mouse-paste #[(click) "\303\304!\210\305\306 !\210\307\n\310=\203 \311\312!\2066 \313 \2020 \314\313!\203- \313 \2066 \311\312!\2020 \311\312!\2066 \315\316!!\207" [this-command click system-type run-hooks mouse-leave-buffer-hook yank mouse-set-point term-send-raw-string windows-nt x-get-selection PRIMARY x-get-selection-value fboundp error "No selection is available"] 3 (#$ . 28588) "e"])
#@50 Insert the last stretch of killed text at point.
(defalias 'term-paste #[nil "\300\301\302!!\207" [term-send-raw-string current-kill 0] 3 (#$ . 29062) nil])
(defalias 'term-send-up #[nil "\300\301!\207" [term-send-raw-string "OA"] 2 nil nil])
(defalias 'term-send-down #[nil "\300\301!\207" [term-send-raw-string "OB"] 2 nil nil])
(defalias 'term-send-right #[nil "\300\301!\207" [term-send-raw-string "OC"] 2 nil nil])
(defalias 'term-send-left #[nil "\300\301!\207" [term-send-raw-string "OD"] 2 nil nil])
(defalias 'term-send-home #[nil "\300\301!\207" [term-send-raw-string "[1~"] 2 nil nil])
(defalias 'term-send-insert #[nil "\300\301!\207" [term-send-raw-string "[2~"] 2 nil nil])
(defalias 'term-send-end #[nil "\300\301!\207" [term-send-raw-string "[4~"] 2 nil nil])
(defalias 'term-send-prior #[nil "\300\301!\207" [term-send-raw-string "[5~"] 2 nil nil])
(defalias 'term-send-next #[nil "\300\301!\207" [term-send-raw-string "[6~"] 2 nil nil])
(defalias 'term-send-del #[nil "\300\301!\207" [term-send-raw-string "[3~"] 2 nil nil])
(defalias 'term-send-backspace #[nil "\300\301!\207" [term-send-raw-string ""] 2 nil nil])
#@184 Switch to char ("raw") sub-mode of term mode.
Each character you type is sent directly to the inferior without
intervention from Emacs, except for the escape character (usually C-c).
(defalias 'term-char-mode #[nil "\306 =?\2056 \306 \307!\210\310\n!\210\310 !\210\311\312p!!\f `V\2033 \313\216\314K\315\210\316 \210)*\317 \207" [term-raw-map term-old-mode-map term-terminal-menu term-signals-menu term-input-sender save-input-sender current-local-map use-local-map easy-menu-add process-mark get-buffer-process ((byte-code "\302\207" [save-input-sender term-input-sender nil] 1)) term-send-string nil term-send-input term-update-mode-line pmark] 3 (#$ . 30214) nil])
#@187 Switch to line ("cooked") sub-mode of term mode.
This means that Emacs editing commands work as normally, until
you type \[term-send-input] which sends the current line to the inferior.
(defalias 'term-line-mode #[nil "\302 =\205
\303 !\210\304 \207" [term-raw-map term-old-mode-map current-local-map use-local-map term-update-mode-line] 2 (#$ . 30900) nil])
(defalias 'term-update-mode-line #[nil "\306 =\203 \307\310\311\312\313\314\315\316&\202 \307\317\311\320\313\314\315\321& \205. \322\307\323\311\324\313\314\315\325&P\326\211\327p! '\330p!\203y \331\326!\332\232\203y \333 (\334(\203Y \335\336(\"\206Z \337\340BB)\341\n\342\" (\334(\203s \335\343(\"\206t \337\344BB)\345'
\f \343\257)-\346 \207" [term-raw-map term-pager-count proc serial-item-config serial-item-speed term-page current-local-map propertize "char" help-echo "mouse-1: Switch to line mode" mouse-face mode-line-highlight local-map (keymap (mode-line keymap (down-mouse-1 . term-line-mode))) "line" "mouse-1: Switch to char mode" (keymap (mode-line keymap (down-mouse-1 . term-char-mode))) " " "page" "mouse-1: Disable paging" (keymap (mode-line keymap (down-mouse-1 . term-pager-toggle))) nil get-buffer-process term-check-proc process-type serial serial-speed :propertize format " %d" "" (help-echo "mouse-1: Change the speed of the serial port" mouse-face mode-line-highlight local-map (keymap (mode-line keymap (down-mouse-1 . serial-mode-line-speed-menu-1)))) process-contact :summary " %s" (help-echo "mouse-1: Change the configuration of the serial port" mouse-face mode-line-highlight local-map (keymap (mode-line keymap (down-mouse-1 . serial-mode-line-config-menu-1)))) ": " force-mode-line-update term-mode temp mode-line-process] 10])
#@124 True if there is a process associated w/buffer BUFFER, and it
is alive. BUFFER can be either a buffer or the name of one.
(defalias 'term-check-proc #[(buffer) "\302!\211\205
\303 !\304>)\207" [buffer proc get-buffer-process process-status (run stop open listen connect)] 3 (#$ . 32650)])
#@325 Make a term process NAME in a buffer, running PROGRAM.
The name of the buffer is made by surrounding NAME with `*'s.
If there is already a running process in that buffer, it is not restarted.
Optional third arg STARTFILE is the name of a file to send the contents of to
the process. Any more args are arguments to PROGRAM.
(defalias 'make-term #[(name program &optional startfile &rest switches) "\305\306\306Q!\307 !\204 r q\210\310 \210)\311 \n \f%\210 )\207" [name buffer program startfile switches get-buffer-create "*" term-check-proc term-mode term-exec] 6 (#$ . 32950)])
#@198 Start a terminal-emulator in a new buffer.
The buffer is in Term mode; see `term-mode' for the
commands to use in that buffer.
\<term-raw-map>Type \[switch-to-buffer] to switch to another buffer.
(defalias 'term #[(program) "\301\302\"q\210\303 \210\304 \210\305\306!\207" [program make-term "terminal" term-mode term-char-mode switch-to-buffer "*terminal*"] 3 (#$ . 33540) (list (read-from-minibuffer "Run program: " (or explicit-shell-file-name (getenv "ESHELL") (getenv "SHELL") "/bin/sh")))])
#@252 Start up a process in buffer for term modes.
Blasts any old process running in the buffer. Doesn't set the buffer mode.
You can use this to cheaply run a series of processes in the same term
buffer. The hook `term-exec-hook' is run after each exec.
(defalias 'term-exec #[(buffer name command startfile switches) "rq\210\306!\211\203 \307 !\210)\310\n \f$\311\312!\210
\ndb\210\313 !`\314\223\210\315 \316\"\210\317 \320\"\210\203L \321\322!\210db\210\323!\210\324 \325`d\"\"\210)\326\327!\210)\207" [buffer proc name command switches process-connection-type get-buffer-process delete-process term-exec-1 make-local-variable term-ptyp process-mark nil set-process-filter term-emulate-terminal set-process-sentinel term-sentinel sleep-for 1 insert-file-contents term-send-string delete-and-extract-region run-hooks term-exec-hook startfile] 6 (#$ . 34046)])
#@80 Sentinel for term buffers.
The main purpose is to get rid of the local keymap.
(defalias 'term-sentinel #[(proc msg) "\303!\304!\305>\205, \306 !\204 \307\310\"\202, r q\210\311\310!\210\312\313!\n\"\210\314!))\207" [proc buffer msg process-buffer process-status (signal exit) buffer-name set-process-buffer nil use-local-map term-handle-exit process-name delete-process] 3 (#$ . 34923)])
#@73 Write process exit (or other change) message MSG in the current buffer.
(defalias 'term-handle-exit #[(process-name msg) "\305d` b\210\306\307 \310\f\261\210\311 \210\205 W\205 b+\207" [opoint omax buffer-read-only process-name msg nil 10 "Process " " " force-mode-line-update] 5 (#$ . 35325)])
#@93 Name to use for TERM.
Using "emacs" loses, because bash disables editing if $TERM == emacs.
(defvar term-term-name "eterm-color" (#$ . 35636))
#@33 Termcap capabilities supported.
(defvar term-termcap-format "%s%s:li#%d:co#%d:cl=\\E[H\\E[J:cd=\\E[J:bs:am:xn:cm=\\E[%%i%%d;%%dH:nd=\\E[C:up=\\E[A:ce=\\E[K:ho=\\E[H:pt:al=\\E[L:dl=\\E[M:DL=\\E[%%dM:AL=\\E[%%dL:cs=\\E[%%i%%d;%%dr:sf=^J:dc=\\E[P:DC=\\E[%%dP:IC=\\E[%%d@:im=\\E[4h:ei=\\E[4l:mi::so=\\E[7m:se=\\E[m:us=\\E[4m:ue=\\E[m:md=\\E[1m:mr=\\E[7m:me=\\E[m:UP=\\E[%%dA:DO=\\E[%%dB:LE=\\E[%%dD:RI=\\E[%%dC:kl=\\EOD:kd=\\EOB:kr=\\EOC:ku=\\EOA:kN=\\E[6~:kP=\\E[5~:@7=\\E[4~:kh=\\E[1~:mk=\\E[8m:cb=\\E[1K:op=\\E[39;49m:Co#8:pa#64:AB=\\E[4%%dm:AF=\\E[3%%dm:cr=^M:bl=^G:do=^J:le=^H:ta=^I:se=\\E[27m:ue=\\E24m:kb=^?:kD=^[[3~:sc=\\E7:rc=\\E8:r1=\\Ec:" (#$ . 35785))
(defalias 'term-exec-1 #[(name buffer command switches) "\306\307\"\306\310 \"\306\n\311 \f%\306\312
#\306\313
#\306\314 \"\306\315\f\"\257\244\316\211\317 \320\321 \322\323\306\324 \f#\325 & ,\207" [term-term-name data-directory term-termcap-format term-height term-width emacs-version format "TERM=%s" "TERMINFO=%s" "TERMCAP=" "EMACS=%s (term:%s)" "INSIDE_EMACS=%s,term:%s" "LINES=%d" "COLUMNS=%d" t binary apply start-process "/bin/sh" "-c" "stty -nl echo rows %d columns %d sane 2>/dev/null;if [ $1 = .. ]; then shift; fi; exec \"$@\"" ".." term-protocol-version process-environment coding-system-for-read inhibit-eol-conversion process-connection-type name buffer command switches] 10])
#@612 Set the buffer's `term-input-ring' from a history file.
The name of the file is given by the variable `term-input-ring-file-name'.
The history ring is of size `term-input-ring-size', regardless of file size.
If `term-input-ring-file-name' is nil this function does nothing.
If the optional argument SILENT is non-nil, we say nothing about a
failure to read the history file.
This function is useful for major mode commands and mode hooks.
The structure of the history file should be one input command per line,
with the most recent command last.
See also `term-input-ignoredups' and `term-write-input-ring'.
(defalias 'term-read-input-ring #[(&optional silent) "\203\n \306\232\203\f \307\207\310!\204 \206w \311\312\"\207\313\314\n! \315\316! rq\210\317\216\320
!\210db\210\f\nW\203n \321\322\307\323#\203n \324\224\324\225{ \203` \325 !\204` \326 \313\"\230\204f \327 \"\210)\fT\211\2027 + \307\211 +\207" [term-input-ring-file-name silent term-input-ring-size ring count file "" nil file-readable-p message "Cannot read history file %s" 0 make-ring generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents re-search-backward "^[ ]*\\([^#\n].*\\)[ ]*$" t 1 ring-empty-p ring-ref ring-insert-at-beginning #1# history term-input-ignoredups term-input-ring term-input-ring-index] 5 (#$ . 37166)])
#@344 Write the buffer's `term-input-ring' to a history file.
The name of the file is given by the variable `term-input-ring-file-name'.
The original contents of the file are lost if `term-input-ring' is not empty.
If `term-input-ring-file-name' is nil this function does nothing.
Useful within process sentinels.
See also `term-read-input-ring'.
(defalias 'term-write-input-ring #[nil "\203 \306\232\204 \203 \307 !\203 \310\207\311!\204! \312\313\"\207\314\315! \316 ! r\nq\210\317 \210
\320V\203H
S\321
\"\322\261\210\2024 \323\324 \310\f\310\325%\210\326\310!-\207" [term-input-ring-file-name term-input-ring history-buf ring file index "" ring-empty-p nil file-writable-p message "Cannot write history file %s" get-buffer-create " *Temp Input History*" ring-length erase-buffer 0 ring-ref 10 write-region buffer-string no-message kill-buffer] 6 (#$ . 38584)])
#@49 List in help buffer the buffer's input history.
(defalias 'term-dynamic-list-input-ring #[nil "\306!\203\f \307!\203 \310\311!\207\312\313\314!S\315 \n\316Y\2030 \317\n\"\fB\nS\211\202
#r\320 !q\210p\321 \210#\312\211$%\322\211&\322 ' (\323 \210\324\325!\210+\211 ) *\326\f!\210 q\210\327y\210\330\331\312\332#\203u \333\334!\210\202f \335)!\210+\336\316!\210\310\337!\210\340 \211 +\341=\203\223 \342 !\202\231 +C\211,-\207" [term-input-ring conf index history-buffer history default-directory ring-p ring-empty-p message "No history" nil " *Input History*" ring-length current-window-configuration 0 ring-ref get-buffer-create kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list 3 search-backward "completion" move replace-match "history reference" internal-temp-output-buffer-show sit-for "Hit space to flush" read-event 32 set-window-configuration #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output ch unread-command-events] 5 (#$ . 39468) nil])
(defalias 'term-regexp-arg #[(prompt) "\305 \306\211\211\303%\211\307\230\203 \211A@\240\202 \n\310\f!*D\207" [last-command prompt regexp minibuffer-history-search-history current-prefix-arg read-from-minibuffer nil "" prefix-numeric-value] 7])
(defalias 'term-search-arg #[(arg) "\303 \204 \304\305!\207\203 \306!\203 \304\307!\207\310 !\203! \311\312\207 \207" [term-input-ring arg term-input-ring-index term-after-pmark-p error "Not at command line" ring-empty-p "Empty input ring" zerop nil 1] 2])
(defalias 'term-search-start #[(arg) "\203 \303 \304V\203 \305\202 \306\\\307\n!\"\207 \304Y\203 \304\207\307\n!S\207" [term-input-ring-index arg term-input-ring mod 0 1 -1 ring-length] 4])
#@95 Return the string ARG places along the input ring.
Moves relative to `term-input-ring-index'.
(defalias 'term-previous-input-string #[(arg) "\303 \203 \304\n \\\305!\"\202 \n\"\207" [term-input-ring term-input-ring-index arg ring-ref mod ring-length] 6 (#$ . 41284)])
#@40 Cycle backwards through input history.
(defalias 'term-previous-input #[(arg) "\301\302\"\207" [arg term-previous-matching-input "."] 3 (#$ . 41562) "*p"])
#@39 Cycle forwards through input history.
(defalias 'term-next-input #[(arg) "\301[!\207" [arg term-previous-input] 2 (#$ . 41725) "*p"])
#@111 Return the string matching REGEXP ARG places along the input ring.
Moves relative to `term-input-ring-index'.
(defalias 'term-previous-matching-input-string #[(regexp arg) "\304 \"\211\205
\305 \n\")\207" [regexp arg pos term-input-ring term-previous-matching-input-string-position ring-ref] 4 (#$ . 41867)])
#@120 Return the index matching REGEXP ARG places along the input ring.
Moves relative to START, or `term-input-ring-index'.
(defalias 'term-previous-matching-input-string-position #[(regexp arg &optional start) "\306!\203\f \307!\203 \310\311!\210\312!\n\313V\203 \314\202 \315\316\f\206( \317\n! Z \" \320\211 \n\313U\204\200 \204\200
\316
\\ \"
W\203n \204n \321\322
\"\"\204n \316
\\ \"\211U\202H \n\313V\203y \nS\202{ \nT\211\2024 \321\322
\"\"\205\214
-\207" [term-input-ring len arg motion start n ring-p ring-empty-p error "No history" ring-length 0 1 -1 mod term-search-start nil string-match ring-ref tried-each-ring-item prev regexp] 6 (#$ . 42186)])
#@218 Search backwards through input history for match for REGEXP.
(Previous history elements are earlier commands.)
With prefix argument N, search for Nth previous match.
If N is negative, find the next or Nth next match.
(defalias 'term-previous-matching-input #[(regexp n) "\305!\306 \"\211\204 \307\310!\202( \n\311\312\nT\"\210\313\314p!!`|\210\315\f\n\"c)\207" [n regexp pos term-input-ring-index term-input-ring term-search-arg term-previous-matching-input-string-position error "Not found" message "History item: %d" process-mark get-buffer-process ring-ref] 4 (#$ . 42884) (term-regexp-arg "Previous input matching (regexp): ")])
#@227 Search forwards through input history for match for REGEXP.
(Later history elements are more recent commands.)
With prefix argument N, search for Nth following match.
If N is negative, find the previous or Nth previous match.
(defalias 'term-next-matching-input #[(regexp n) "\302 [\"\207" [regexp n term-previous-matching-input] 3 (#$ . 43530) (term-regexp-arg "Next input matching (regexp): ")])
#@238 Search backwards through input history for match for current input.
(Previous history elements are earlier commands.)
With prefix argument N, search for Nth previous match.
If N is negative, search forwards for the -Nth following match.
(defalias 'term-previous-matching-input-from-input #[(n) "\304>\204 \305\306p!!`{\307\310\311\312 !P \"\207" [last-command term-matching-input-from-input-string term-input-ring-index n (term-previous-matching-input-from-input term-next-matching-input-from-input) process-mark get-buffer-process nil term-previous-matching-input "^" regexp-quote] 4 (#$ . 43936) "p"])
#@243 Search forwards through input history for match for current input.
(Following history elements are more recent commands.)
With prefix argument N, search for Nth following match.
If N is negative, search backwards for the -Nth previous match.
(defalias 'term-next-matching-input-from-input #[(n) "\301[!\207" [n term-previous-matching-input-from-input] 2 (#$ . 44551) "p"])
#@675 Expand input command history references before point.
Expansion is dependent on the value of `term-input-autoexpand'.
This function depends on the buffer's idea of the input history, which may not
match the command interpreter's idea, assuming it has one.
Assumes history syntax is like typical Un*x shells'. However, since Emacs
cannot know the interpreter's idea of input line numbers, assuming it has one,
it cannot expand absolute input line number references.
If the optional argument SILENT is non-nil, never complain
even if history reference seems erroneous.
See `term-magic-space' and `term-replace-by-expanded-history-before-point'.
Returns t if successful.
(defalias 'term-replace-by-expanded-history #[(&optional silent) "\205( \305\306 \"\205( \212\307 \210\310\n!)\205( \311 \312\313!\210\314\f!\210 \311 U)?\207" [term-input-autoexpand term-get-old-input term-prompt-regexp previous-modified-tick silent string-match "[!^]" beginning-of-line looking-at buffer-modified-tick message "Expanding history references..." term-replace-by-expanded-history-before-point] 3 (#$ . 44932) nil])
#@114 Expand directory stack reference before point.
See `term-replace-by-expanded-history'. Returns t if successful.
(defalias 'term-replace-by-expanded-history-before-point #[(silent) "\212\306 `Z\307\310!\210`\311\306 Zw\210`\306 ZW\205t\310h\312U\204+ \313`\"\2032 `Tb\210\202\f \314\315!\203C \316\225b\210\317\320!\210\202\f \314\321!\203 \322\323\224\323\225{!S\211\324\f!X\203s \325\326\327 !\330\224\330\225#\331\211#\210 \317\332 T\"\210\202{ \316\225b\210\317\333!\210)\202\f \314\334!\204\213 \314\335!\203\240 \325\326\327\316!\323\224\323\225#\331\211#\210\317\336!\210\202\f \314\337!\203\"\323\224 \323\225 0\330\224 1\330\225 21\206\273
2\206\302 0{ 3\340 4\341\216\314\342!*\203\326 \343\202\327 \344 5\340 4\345\216\3465\3473!P\323\"*\211 6\204\316\225b\2107\204 \317\350!\210\351 \210\202 6\325\326\352\f6\"\353\224\353\225#\331\211#\210\317\3326T\"\210.\202\f \314\354!\203m\323\224\323\225{\330\224\330\225{\310 6 8 9\325\327\316!\331\211#\210`6\316\224b\210\35596\331#\204^7\204i\356\350!\210\202i\3258\331\211#\210\317\357!\210+\202\f \316\225b\210\202\f +\207" [start toend term-input-ring-index number term-input-ring mb1 line-end-position term-bol nil "^!^" 92 term-within-quotes looking-at "![0-9]+\\($\\|[^-]\\)" 0 message "Absolute reference cannot be expanded" "!-\\([0-9]+\\)\\(:?[0-9^$*-]+\\)?" string-to-number 1 ring-length replace-match term-args term-previous-input-string 2 t "History item: %d" "Relative reference exceeds input history size" "!!?:?\\([0-9^$*-]+\\)" "!!" "History item: previous" "!\\??\\({\\(.+\\)}\\|\\(\\sw+\\)\\)\\(:?[0-9^$*-]+\\)?" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) "!\\?" "" "^" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) term-previous-matching-input-string-position regexp-quote "Not found" ding ring-ref 4 "\\^\\([^^]+\\)\\^?\\([^^]*\\)\\^?" search-forward error "History item: substituted" me1 mb2 me2 exp save-match-data-internal pref pos silent new old] 6 (#$ . 46047)])
#@143 Expand input history references before point and insert ARG spaces.
A useful command to bind to SPC. See `term-replace-by-expanded-history'.
(defalias 'term-magic-space #[(arg) "\301 \210\302!\207" [arg term-replace-by-expanded-history self-insert-command] 2 (#$ . 48130) "p"])
#@92 Return t if the number of quotes between BEG and END is odd.
Quotes are single and double.
(defalias 'term-within-quotes #[(beg end) "\304\305 #\304\306 #\307 \310\"\311U\206 \307\n\310\"\311U*\207" [beg end countdq countsq term-how-many-region "\\(^\\|[^\\\\]\\)'" "\\(^\\|[^\\\\]\\)\"" mod 2 1] 5 (#$ . 48416)])
#@54 Return number of matches for REGEXP from BEG to END.
(defalias 'term-how-many-region #[(regexp beg end) "\305\212\306 \307\216\nb\210\310 \f\311#\203 T\202 +)\207" [count save-match-data-internal beg regexp end 0 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-forward t] 4 (#$ . 48741)])
(defalias 'term-args #[(string begin end) "\306 \307\216 \204 \310\n\311\312#\202k f\313=\203 T\202 { \314\315\f\"\203, \316\202D \314\317\f\"\2037 \311\202D \f\320\230\203A \312\202D \321\f! \314\322\f\"\203P \312\202b \314\323\f\"\203a \321\f\311\225\312O!\202b
\310\n
#+*\207" [save-match-data-internal begin string end range nth match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) term-arguments 0 nil 58 string-match "^[*^]" 1 "^-" "$" string-to-number "[-*$]$" "-" mth] 4])
(defalias 'term-delim-arg #[(arg) "\204 C\207\306\307 G \nW\203W H \211 >\2037 \nW\203L H=\203L T\211\202\" \nW\203L H>\204L T\211\2028
O\fB*\202 \f+\207" [term-delimiter-argument-list arg len pos args start nil 0 char] 4])
#@358 Return from STRING the NTH to MTH arguments.
NTH and/or MTH can be nil, which means the last argument.
Returned arguments are separated by single spaces.
We assume whitespace separates arguments, except within quotes.
Also, a run of one or more of a single character
in `term-delimiter-argument-list' is a separate argument.
Argument 0 is the command name.
(defalias 'term-arguments #[(string nth mth) "\306\307\310\211\307\211\211 \203 X\203f \311\f#\203f \n\203= \f\310\224U\203= \310\225\2069 \312\224\202 \n\203Z \n\fO\203Q
B\202V \313 !
\244 T\312\224\310\224\310\225\202 \n\203\203 \n\fO\203z
B\202 \313 !
\244 T\206\212 S\203\227 ZS\202\230 \310 \314\315
\233\237\233\316#. \207" [quotes str beg count pos args "[^ \n \"'`]+\\|\\(\"[^\"]*\"\\|'[^']*'\\|`[^`]*`\\)" nil 0 string-match 1 term-delim-arg mapconcat #[(a) "\207" [a] 1] " " argpart mth string nth m n] 7 (#$ . 49894)])
#@1941 Send input to process.
After the process output mark, sends all text from the process mark to
point as input to the process. Before the process output mark, calls value
of variable `term-get-old-input' to retrieve old input, copies it to the
process mark, and sends it. A terminal newline is also inserted into the
buffer and sent to the process. The list of function names contained in the
value of `term-input-filter-functions' is called on the input before sending
it. The input is entered into the input history ring, if the value of variable
`term-input-filter' returns non-nil when called on the input.
Any history reference may be expanded depending on the value of the variable
`term-input-autoexpand'. The list of function names contained in the value
of `term-input-filter-functions' is called on the input before sending it.
The input is entered into the input history ring, if the value of variable
`term-input-filter' returns non-nil when called on the input.
If variable `term-eol-on-send' is non-nil, then point is moved to the
end of line before sending the input.
The values of `term-get-old-input', `term-input-filter-functions', and
`term-input-filter' are chosen according to the command interpreter running
in the buffer. E.g.,
If the interpreter is the csh,
term-get-old-input is the default: take the current line, discard any
initial string matching regexp term-prompt-regexp.
term-input-filter-functions monitors input for "cd", "pushd", and
"popd" commands. When it sees one, it cd's the buffer.
term-input-filter is the default: returns t if the input isn't all white
space.
If the term is Lucid Common Lisp,
term-get-old-input snarfs the sexp ending at point.
term-input-filter-functions does nothing.
term-input-filter returns nil if the input matches input-filter-regexp,
which matches (1) all whitespace (2) :a, :c, etc.
Similarly for Soar, Scheme, etc.
(defalias 'term-send-input #[nil "\306p!\211\204 \307\310!\202\365 \311!\312 !`\nY\211\203+ \f\203% \313\210 `{\202-
\314=\204; \202B \315\316!\210 `{ \f\317=\204P \f\202d \315\316!\210 `{ `|\210\fc\210) \203v \212\311!b\210\320 ) !\203\243 \203\234 \321 !\203\234 \322 !\204\234 \323 \324\"\230\204\243 \325 \"\210 \211 \203\275 @\f\326P!\210 A\211 \204\253 )\313!\" \313\223\210#`\313\223\210 \203\352 \327$!\203\335 $ |\210$\n\313\223\210\311!`\313\223\210 b\210%\f\".)\207" [proc pmark pmark-val input-is-new term-eol-on-send term-get-old-input get-buffer-process error "Current buffer has no process" process-mark marker-position nil input term-replace-by-expanded-history t history term-current-row ring-p ring-empty-p ring-ref 0 ring-insert "\n" marker-buffer intxt term-input-autoexpand copy term-pager-count term-input-filter term-input-ignoredups term-input-ring term-input-filter-functions functions term-input-ring-index term-last-input-start term-last-input-end term-pending-delete-marker term-input-sender] 4 (#$ . 50847) nil])
#@118 Default for `term-get-old-input'.
Take the current line, and discard any initial text matching
`term-prompt-regexp'.
(defalias 'term-get-old-input-default #[nil "\212\301 \210\302 \210`\303\210`{*\207" [beg beginning-of-line term-skip-prompt nil] 2 (#$ . 53896)])
#@112 Insert after prompt old input at point as new input to be edited.
Calls `term-get-old-input' to get old input.
(defalias 'term-copy-old-input #[nil " \303p! \204 \304\305!\202 \306 !b\210\nc*\207" [term-get-old-input process input get-buffer-process error "Current buffer has no process" process-mark] 3 (#$ . 54170) nil])
#@128 Skip past the text matching regexp `term-prompt-regexp'.
If this takes us past the end of the current line, don't skip at all.
(defalias 'term-skip-prompt #[nil "\302 \303 !\205 \304\225X\205 \304\225b)\207" [eol term-prompt-regexp line-end-position looking-at 0] 2 (#$ . 54505)])
#@43 Is point after the process output marker?
(defalias 'term-after-pmark-p #[nil "\301\302\303p!!!\211`X)\207" [proc-pos marker-position process-mark get-buffer-process] 5 (#$ . 54796)])
#@144 Default function for sending to PROC input STRING.
This just sends STRING plus a newline. To override this,
set the hook `term-input-sender'.
(defalias 'term-simple-send #[(proc string) "\302 \"\210\302\303\"\207" [proc string term-send-string "\n"] 3 (#$ . 54988)])
#@289 Go to the beginning of line, then skip past the prompt, if any.
If a prefix argument is given (\[universal-argument]), then no prompt skip
-- go straight to column 0.
The prompt skip is done by skipping text matching the regular expression
`term-prompt-regexp', a buffer local variable.
(defalias 'term-bol #[(arg) "\301 \210?\205\n \302 \207" [arg beginning-of-line term-skip-prompt] 1 (#$ . 55265) "P"])
#@597 Read a single line of text from user without echoing, and return it.
Prompt with argument PROMPT, a string. Optional argument STARS causes
input to be echoed with '*' characters on the prompt line. Input ends with
RET, LFD, or ESC. DEL or C-h rubs out. C-u kills line. C-g aborts (if
`inhibit-quit' is set because e.g. this function was called from a process
filter and C-g is pressed, this function returns nil rather than a string).
Note that the keystrokes comprising the text can still be recovered
(temporarily) with \[view-lossage]. This may be a security bug for some
applications.
(defalias 'term-read-noecho #[(prompt &optional stars) "\306\307\211\310\311 \204
\203 \312\313\314\fG\315\"#\210\202& \312\316\"\210\317 \211\320U\2038 \310\211 \211\202 \321U\204J \322U\204J \323U\203P \310\211\202 \324U\203[ \306\202\n \325U\204p \326U\204p \f\327 !P\202\n \fG\307V\203\n \f\307\330O\202\n \203\223 \311\211 \312\331!\210\332\310!\210\202\230 \312\306!\210\f-\207" [done cursor-in-echo-area echo-keystrokes c ans stars "" 0 t nil message "%s%s" make-string 42 "%s" read-char 7 13 10 27 21 8 127 char-to-string -1 "Quit" beep prompt quit-flag] 7 (#$ . 55680)])
#@257 Read a string without echoing.
Then send it to the process running in the current buffer. A new-line
is additionally sent. String is not saved on term input history list.
Security bug: your string can still be temporarily recovered with
\[view-lossage].
(defalias 'term-send-invisible #[(str &optional proc) ";\204\n \303\304\305\" \204 \306p! \204 \307\310!\207\n\311B\244\312 \"\210\312 \313\"\207" [str proc term-kill-echo-list term-read-noecho "Non-echoed text: " t get-buffer-process error "Current buffer has no process" nil term-send-string "\n"] 3 (#$ . 56893) "P"])
#@142 Long inputs send to term processes are broken up into chunks of this size.
If your process is choking on big inputs, try lowering the value.
(custom-declare-variable 'term-input-chunk-size 512 '(#$ . 57485) :group 'term :type 'integer)
#@326 Send to PROC the contents of STR as input.
This is equivalent to `process-send-string', except that long input strings
are broken up into chunks of size `term-input-chunk-size'. Processes
are given a chance to output between chunks. This can help prevent processes
from hanging when you send them long inputs on some OS's.
(defalias 'term-send-string #[(proc str) "G\211\n^\306\f\307 O\"\210 W\205, \n\\ \310 \210\306\f
^O\"\210
)\202 *\207" [str len term-input-chunk-size i proc next-i process-send-string 0 accept-process-output] 7 (#$ . 57728)])
#@187 Send to PROC the region delimited by START and END.
This is a replacement for `process-send-region' that tries to keep
your process from hanging on long inputs. See `term-send-string'.
(defalias 'term-send-region #[(proc start end) "\303 \n{\"\207" [proc start end term-send-string] 4 (#$ . 58297)])
#@52 Kill all output from interpreter since last input.
(defalias 'term-kill-output #[nil "\302\303p!!\304 \"\210b\210\305c\210`\306\223)\207" [pmark term-last-input-end process-mark get-buffer-process kill-region "*** output flushed ***\n" nil] 3 (#$ . 58605) nil])
#@127 Display start of this batch of interpreter output at top of window.
Sets mark to the value of point when this command is run.
(defalias 'term-show-output #[nil "b\210\301u\210\302 \210\303\304 `\"\210\305\207" [term-last-input-end -1 beginning-of-line set-window-start selected-window nil] 3 (#$ . 58878) nil])
#@31 Interrupt the current subjob.
(defalias 'term-interrupt-subjob #[nil "\301\302\"\207" [term-ptyp interrupt-process nil] 3 (#$ . 59197) nil])
#@41 Send kill signal to the current subjob.
(defalias 'term-kill-subjob #[nil "\301\302\"\207" [term-ptyp kill-process nil] 3 (#$ . 59345) nil])
#@41 Send quit signal to the current subjob.
(defalias 'term-quit-subjob #[nil "\301\302\"\207" [term-ptyp quit-process nil] 3 (#$ . 59493) nil])
#@292 Stop the current subjob.
WARNING: if there is no current subjob, you can end up suspending
the top-level process running in the buffer. If you accidentally do
this, use \[term-continue-subjob] to resume the process. (This
is not a problem with most shells, since they ignore this signal.)
(defalias 'term-stop-subjob #[nil "\301\302\"\207" [term-ptyp stop-process nil] 3 (#$ . 59642) nil])
#@111 Send CONT signal to process buffer's process group.
Useful if you accidentally suspend the top-level process.
(defalias 'term-continue-subjob #[nil "\301\302\"\207" [term-ptyp continue-process nil] 3 (#$ . 60042) nil])
#@63 Kill all text from last stuff output by interpreter to point.
(defalias 'term-kill-input #[nil "\302\303p!!\304!` V\205 \305`\"*\207" [pmark p-pos process-mark get-buffer-process marker-position kill-region] 3 (#$ . 60268) nil])
#@79 Delete ARG characters forward, or send an EOF to process if at end of
buffer.
(defalias 'term-delchar-or-maybe-eof #[(arg) "m\203 \301 \207\302!\207" [arg process-send-eof delete-char] 2 (#$ . 60508) "p"])
#@46 Send an EOF to the current buffer's process.
(defalias 'term-send-eof #[nil "\300 \207" [process-send-eof] 1 (#$ . 60722) nil])
#@227 Search backward through buffer for match for REGEXP.
Matches are searched for on lines that match `term-prompt-regexp'.
With prefix argument N, search for Nth previous match.
If N is negative, find the next or Nth next match.
(defalias 'term-backward-matching-input #[(regexp n) "\305 Q\212 \306V\203 \306\202 \307\210\310\n\311\312 $\205 `)\211 \204, \313\314!\210\315 \2022 \fb\210\316\311!*\207" [term-prompt-regexp regexp re n pos ".*" 0 1 re-search-backward nil t message "Not found" ding term-bol] 6 (#$ . 60857) (term-regexp-arg "Backward input matching (regexp): ")])
#@235 Search forward through buffer for match for REGEXP.
Matches are searched for on lines that match `term-prompt-regexp'.
With prefix argument N, search for Nth following match.
If N is negative, find the previous or Nth previous match.
(defalias 'term-forward-matching-input #[(regexp n) "\302 [\"\207" [regexp n term-backward-matching-input] 3 (#$ . 61446) (term-regexp-arg "Forward input matching (regexp): ")])
#@73 Move to end of Nth next prompt in the buffer.
See `term-prompt-regexp'.
(defalias 'term-next-prompt #[(n) "\n\303V\203\f \304\202
\303\210\305\n!\210\306 )\207" [term-prompt-regexp paragraph-start n 0 1 forward-paragraph term-skip-prompt] 2 (#$ . 61865) "p"])
#@77 Move to end of Nth previous prompt in the buffer.
See `term-prompt-regexp'.
(defalias 'term-previous-prompt #[(n) "\301[!\207" [n term-next-prompt] 2 (#$ . 62135) "p"])
(defalias 'term-source-default #[(previous-dir/file source-modes) "\203 \n>\203 \305!\306!B\207 \206 \f\307B\207" [buffer-file-name major-mode source-modes previous-dir/file default-directory file-name-directory file-name-nondirectory nil] 3])
(defalias 'term-check-source #[(fname) "\302!\211\205 \303 !\205 \304\305\306\307 !\"!\205 r q\210\310 ))\207" [fname buff get-file-buffer buffer-modified-p y-or-n-p format "Save buffer %s first? " buffer-name save-buffer] 6])
#@67 Return string around `point' that starts the current line or nil.
(defalias 'term-extract-string #[nil "\212`\305 \306 \307\310 \311#\205 `Tb\210\312\310\n\311#\205! `S \205- \f\205- \f{.\207" [point bol eol start end line-beginning-position line-end-position search-backward "\"" t search-forward] 4 (#$ . 62794)])
(defalias 'term-get-source #[(prompt prev-dir/file source-modes mustmatch-p) "\306 \"\307 \211\205 \310\311\312\217\205 \313 !?\211 \203\" \314 !\202$ \n@ \f\203/ \315 !\2021 \nA \316\203C \317\320#\202E
\211P$ \321\322!!.C\207" [prev-dir/file source-modes def stringfile sfile-p defdir term-source-default term-extract-string nil (file-exists-p stringfile) ((error)) file-directory-p file-name-directory file-name-nondirectory read-file-name format "%s(default %s) " expand-file-name substitute-in-file-name deffile prompt mustmatch-p ans] 6])
(defalias 'term-proc-query #[(proc str) "\306!\307!\310 !\210 q\210\311 !\312\n! \313
\"\210\314!\210\315 \f\"?\205K \316\f! \317\f\n\"\210\320\321!\210\315\f\"\204E \322!\202J \317\f\"),\207" [proc proc-buf proc-mark proc-pt proc-win str process-buffer process-mark display-buffer get-buffer-window marker-position term-send-string accept-process-output pos-visible-in-window-p window-point set-window-point sit-for 0 push-mark opoint] 3])
(defalias 'term-horizontal-column #[nil "\300 \301 Z\207" [term-current-column term-start-line-column] 2])
(defalias 'term-vertical-motion '(macro . #[(count) "\301\302E\207" [count funcall term-vertical-motion] 3]))
(defalias 'term-buffer-vertical-motion #[(count) "\304U\203 \305 i \245_!\210\304\207\304V\203a \306i \245\\\306\210\307i \310# \245\311]\211\nX\203B m\204B \n Z\306u\210\306\210\202! \n Y\203X \n\304V\203X \307\nZ \310#\202_ \305\n _!\210*\207\306[\307i \310# \245\311]\211\nX\203\207 \312 \210o\204\207 \n Z\310u\210\202f \n Y\203\235 \n\304V\203\235 \307\n\311 Z#\202\250 \305\313 \n\311# _!\210*\207" [count term-width todo H 0 move-to-column nil + -1 1 beginning-of-line -] 5])
(defalias 'term-start-line-column #[nil "\206 `\n\303!\210i b\210)\206 \304\207" [term-start-line-column save-pos term-vertical-motion 0 nil] 2])
(defalias 'term-current-column #[nil "\206 i\211\206 \301\207" [term-current-column nil] 2])
(defalias 'term-move-columns #[(delta) "\303\301 \\]\304 \305 \306\"\210`\nV\205 \307\n`\310\311$)\207" [delta term-current-column point-at-eol 0 line-end-position move-to-column t put-text-property font-lock-face default] 5])
(defalias 'term-insert-char #[(char count) "`\303 \n\"\210\304`\305\306$)\207" [old-point char count insert-char put-text-property font-lock-face default] 5])
(defalias 'term-current-row #[nil "\206 \214\212 d}\210\n\303![*\211\206 \304\207" [term-current-row term-home-marker term-vertical-motion -9999 nil] 2])
(defalias 'term-adjust-current-row-cache #[(delta) "\205 \302 \\]\211\207" [term-current-row delta 0] 3])
(defalias 'term-terminal-pos #[nil "\212\305 \306\211 \307!\210\niZ \f! ,B\207" [y x save-col term-vertical-motion term-height term-current-column nil 0] 3])
(defalias 'term-handle-ansi-terminal-messages #[(message) "\306\307\"\203\276 \310\224 \311\\H\312 \313\216 \314\\\306\315 \314\\#O* \316 \317\320\321\211$\n\322U\2038 \f \202R \n\323U\203D \f \202R \n\324U\203P \f \202R \321
\204\272 \325 \326 \230\203n \327 \230\203n \330 !\202\213 \327 \230\203\200 \331 \332 R\202\213 \331 \333 \332 \260! \326 \230\203\245 !\"#$%\202\272 ! #\"%$\316\211!#\316%,\202 \207" [message start command-code save-match-data-internal argument ignore string-match "AnSiT.+\n" 0 6 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 8 "
?\n" nil replace-match "" t 99 104 117 file-name-as-directory system-name user-real-login-name expand-file-name "/" ":" "@" term-ansi-at-dir term-ansi-at-host term-ansi-at-user default-directory term-ansi-at-save-user ange-ftp-default-user term-ansi-at-save-pwd ange-ftp-default-password term-ansi-at-save-anon ange-ftp-generate-anonymous-password] 8])
(defalias 'term-emulate-terminal #[(proc str) "r\306!q\210\307\310\211\310\211 \310\211 @ A\310\211 B C\310\211 D E\311 F\312 G\310\211 H IJG K\313 Lr\314\216\315J! MJM=\204P \311IMJ)JGK\316N!\203j N\317!|\210N\310\211\223\210`\317!U\204v \320 A\321 p=\203\210 \322KO\323!\210\202\214 \324KO\325\317!!B\317!b\210\214d\317!V\203\257 \326 P=\204\257 e\317!}\210Q\203\273 \327JQ\"\210R\330=\203\324 SJPJ\310SJGK\307R KW\203\255J HR\331W\203\370\332\333J #\211\204\365 K V\203\376\334J OT\"@R\335=\203\336\335\311\"\210\337\340 [!\210\307R@G\341 \f\\UZ\211D\307X\204\210\fDV\203N\fDZ\342@\307\fO\343\"G\307D
\\\202\210V\204XW\203`\344\335!\307V\203~\345\335!\210\fU^\342@\307\fO\343\"G\211 \\ X\202\210\307 \310\211 X`Ci\310\211 Y Z [\334J OT\"c\210i\211 [ZZm\204\276\\\204\276`Y\337Z!\210Y`|\210\\\203\335`Y\310\210iUV\203\331`iUZZ`|\210Yb\210+\310 \346C`\347]$\210D\307=\203\370\337\350!\210\335R S\202K\307\211R\203O\n\351=\203O\340 U\352\f\353\354\f\353\"[#^U\fV\203/\337\f\340 Z!\210\f \202KU\340 V\203@\337U\340 ZS!\210U\340 U\203K\337\350!\210\202K\n\355=\203aO\307!\210X \202K\n\356=\203y^\203q\357 \204K\336\335\311\"\210\202K\n\353=\203\206\337\350!\210\202K\n\360=\203\222\331R\202K\n\307=\204K\n\361=\204K\n\362=\204K\n\363=\203\261\364\311!\210\202K\n\365=\203\352I\204\352\332\366J #\211 _\203\331`J T_O\307\225!\210\202\346J \310OS\330RK)\202K\337\335!\210\367\335!\210\nc\210\202KR\331=\203\343\n\370=\203 \307S\350\211ab\350\211cd\307e\371R\202K\n\372=\2031\373 \210\336\335\311\"\210\307R\202K\n\374=\203Z\375 fW\204H\375 SfY\203O\336\350!\210\202T\336\350\311\"\210\307R\202K\n\376=\203\373 \210\375 \341 ghijkl]\257 m\307R\202K\n\377=\203\312m\203\304\201x m@mA@\"\210\331m8g\371m8h\330m8i\201y m8j\201z m8k\363m8l\353m8]\307R\202K\n\201{ =\203\335\307R\201| \210\202K\307R\202KR\371=\203K\n\201} Y\203 \n\201~ X\203 S\356_\n\201} Z\\S\202K\n\201 =\203*\335ecdbcabSa\307S\202K\n\201\200 =\204K\201\201 \n\"\210\307e\350\211dc\350\211ba\307Rn\203\246iU\246\307V\203cJ \310OS\202\211\201\202 !\203y\201\203 J \310OPS\202\206J S\310O\211S\307\355I\210db\210\330R\201\204 \201o !\210\201\205 !o\201\206 p\"\210K T\211\202\325 )\375 qY\203\271\373 \210\317!`\310\223\210A\203\317Ab\210A\310\211\223\210r\203\357\321G!p=\203\357\201\207 r@rA\"\210\310r\323!\210GE\201\210 E!\203 \201\211 E\310\311#E\202\363EH\201\211 E\310\311#E\321E!\306!=\203\243s t\201\212 E!\210`BU\204kt\311=\204kt\201\213 =\204kGE=\203Zt\201\214 =\204kA\203kt\201\215 =\203\212GE=\204\212ub\210\201\216 \307!\210\317!b\210\201\217 `E\"\204\212\201\216 \350!\210v\203\242`\317!Y\203\242\212db\210\201\216 \350!\210))EH=\203
w\307V\203\313\212\317\201\220 p!!b\210w[y\210\201\221 \210e`|\210)B\310\211\223\210.\201\222 p!\205\337\201\223 )\207" [proc i char funny count count-bytes process-buffer 0 nil t selected-window internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) term-handle-ansi-terminal-messages marker-buffer process-mark point-marker window-buffer vertical-motion term-check-size term-buffer-vertical-motion copy-marker current-local-map princ 4 2 string-match "[
\n ]" decode-coding-string 1 term-down term-move-columns term-current-column term-horizontal-column encode-coding-string binary term-handle-scroll term-adjust-current-row-cache put-text-property font-lock-face -1 9 + 8 mod 13 10 term-check-kill-echo-list 27 14 15 7 beep 26 "
?$" backward-delete-char 91 3 68 term-handle-deferred-scroll 77 term-current-row 55 56 decoded-substring save-point save-marker old-point temp win buffer-undo-list selected last-win handled-ansi-message str str-length save-selected-window--state newstr term-pending-delete-marker term-vertical-motion term-raw-map term-log-buffer term-terminal-state term-terminal-parameter locale-coding-system term-width term-pager-count term-scroll-with-delete term-start-line-column pos columns old-column term-insert-mode term-current-face term-kill-echo-list end term-command-hook term-terminal-previous-parameter term-terminal-previous-parameter-2 term-terminal-previous-parameter-3 term-terminal-previous-parameter-4 term-terminal-more-parameters term-scroll-start term-ansi-current-bg-color term-ansi-current-bold term-ansi-current-color term-ansi-current-invisible term-ansi-current-reverse term-ansi-current-underline term-saved-cursor term-pager-old-local-map term-pager-old-filter term-pager-filter term-height term-pending-frame term-scroll-to-bottom-on-output scroll term-home-marker term-scroll-show-maximum-output term-buffer-maximum-size term-goto 5 6 99 term-reset-terminal 48 57 59 63 term-handle-ansi-escape zerop "
" make-local-variable process-filter set-process-filter term-display-line window-minibuffer-p next-window select-window all this others recenter pos-visible-in-window-p get-buffer-process beginning-of-line get-buffer-window redisplay] 10])
(defalias 'term-handle-deferred-scroll #[nil "\304 Z\211\305Y\205 \212\nb\210 T!\210\n`\306\223\210S\211))\207" [term-height count term-home-marker term-vertical-motion term-current-row 0 nil] 4])
#@81 Reset the terminal, delete all the content and set the face to the default one.
(defalias 'term-reset-terminal #[nil "\306 \210\307 \210\310\311\310 \312\211\211 \207" [term-current-row term-current-column term-scroll-start term-height term-scroll-end term-insert-mode erase-buffer term-ansi-reset 0 1 nil term-ansi-face-already-done] 3 (#$ . 72367)])
(defalias 'term-handle-colors-array #[(parameter) "\306=\203 \307\202\216 \310=\203 \307\202\216 \311=\203! \307\202\216 \312=\203, \307\202\216 \313=\2037 \307\202\216 \314=\203B \315\202\216 \316=\203M \315\202\216 \317Y\203` \320X\203` \321Z\202\216 \322=\203k \323\202\216 \324Y\203 \325X\203 \322Z \202\216 \326=\203\213 \323 \202\216 \327 \210!\204\353 \f\203\276 \203\246 \330\"
\234\315\331#\202\257 \332\" \234\315\331# #\333#\334#F$)\202\353 \334\330\"
\234\315\331#\333\332\" \234\315\331#\335 \257$ \203\341 $\336B$\n\203\353 $\337B$\315\211!\207" [parameter term-ansi-current-bold term-ansi-current-underline term-ansi-current-reverse term-ansi-current-invisible term-ansi-current-color 1 t 4 5 7 8 24 nil 27 30 37 29 39 0 40 47 49 term-ansi-reset face-foreground default face-background :background :foreground :inverse-video (:inherit term-bold) (:inherit term-underline) term-ansi-current-bg-color term-ansi-face-already-done ansi-term-color-vector color term-current-face] 7])
(defalias 'term-handle-ansi-escape #[(proc char) "\306=\203- \307X\203 \310\n\307X\203 \310\n V\203 \fV\203& \f\311\nS S\"\207\312=\203] \313 \210\314 \315
Z.W\203J .
Z\202Y
Y\203U
[\202Y \310 ][\316\")\207\317=\203\211 \314 \211 /SU?\205\207 \315
\\/V\203\202 \320/\310
#\202\205 \310 ]\316\")\207\321=\203\247 \322\310 \323 \\\fY\203\243 \320\f\323 \310#\202\244 ]!\207\324=\203\264 \322\310 ][!\207\325=\203\276 \326 !\207\327=\203\310 \330 !\207\331=\203\324 \332\310 ]!\207\333=\203\340 \334\310 ]!\207\335=\203\354 \336\310 ]!\207\337=\203\370 \340\310 ]!\207\341=\203 \342=\205x\316\2110\207\343=\203 \342=\205x\344\2110\207\345=\203S1\310U\203O2\307Y\2033\3462!\2103\307Y\203?\3463!\2104\307Y\203K\3464!\210\346\n!\210\346 !\207\347=\203j\313 \210\3505\351\352\314 T\353 T#\"\207\354=\203w\355\nS S\"\207\316\207" [char term-terminal-parameter term-terminal-previous-parameter term-height term-width tcr 72 0 1 term-goto 65 term-handle-deferred-scroll term-current-row term-down t 66 - 67 term-move-columns term-current-column 68 74 term-erase-in-display 75 term-erase-in-line 76 term-insert-lines 77 term-delete-lines 80 term-delete-chars 64 term-insert-spaces 104 4 108 nil 109 term-handle-colors-array 110 process-send-string format "[%s;%sR" term-horizontal-column 114 term-set-scroll-region term-scroll-start term-scroll-end term-insert-mode term-terminal-more-parameters term-terminal-previous-parameter-4 term-terminal-previous-parameter-3 term-terminal-previous-parameter-2 proc] 7])
#@196 Set scrolling region.
TOP is the top-most line (inclusive) of the new scrolling region,
while BOTTOM is the line following the new scrolling region (e.g. exclusive).
The top-most line is line 0.
(defalias 'term-set-scroll-region #[(top bottom) "\306W\204\f Y\203 \306\202 \nX\204 V\203\" \202#
\2062 \n\306U\2051 \f U?\n\307\310 [!\210\311\306\211\"\207" [top term-height term-scroll-start bottom term-scroll-end term-saved-home-marker 0 term-move-columns term-current-column term-goto term-scroll-with-delete] 3 (#$ . 75336)])
(defalias 'term-command-hook #[(string) "\306\232\203 \307\207\310H\311U\2031 \312\313\314#\312\313 T#\314 O\315 T\nO! \fB\211,\207\310H\316U\203@ \317\314\320O!\207\307\207" [string first-colon second-colon filename fileline term-pending-frame "" t 0 26 string-match ":" 1 string-to-number 47 cd nil] 4])
(defalias 'term-display-line #[(true-file line) "\302\303! \"\207" [true-file line term-display-buffer-line find-file-noselect] 3])
(defalias 'term-display-buffer-line #[(buffer line) "\306\307\"\310rq\210\214~\210eb\210 Sy\210`\311
\204 \312
`p\223\210)\neW\2042 \ndV\2037 ~\210\nb\210)\313
\"*\207" [buffer window pos line overlay-arrow-string overlay-arrow-position display-buffer t nil "=>" make-marker set-window-point] 3])
(defalias 'term-goto-home #[nil "\304 \210b\210\305i\211\211\207" [term-home-marker term-current-row term-current-column term-start-line-column term-handle-deferred-scroll 0] 3])
(defalias 'term-goto #[(row col) "\306 \210\203 Y\203 \n\307!\210 Z\202 \310 \210\311 !\210\312
!\207" [term-current-row row term-vertical-motion term-start-line-column term-current-column col term-handle-deferred-scroll 0 term-goto-home term-down term-move-columns] 2])
(defalias 'term-process-pager #[nil "\306 \307 !\210\310\n!\210\310 !\210\310\f!\210\311\312!\210
\n\313\314\315F\316 \207" [term-pager-old-local-map term-pager-break-map term-terminal-menu term-signals-menu term-pager-menu mode-line-format current-local-map use-local-map easy-menu-add make-local-variable term-old-mode-line-format "-- **MORE** " " [Type ? for help] " "%-" force-mode-line-update mode-line-buffer-identification] 4])
(defalias 'term-pager-line #[(lines) "\304T! Z V\203 \305u\210\n\306X\203 \307 S!\202\" \310\n!*\207" [lines moved deficit term-height vertical-motion -1 0 recenter term-pager-continue] 2 nil "p"])
#@78 Proceed past the **MORE** break, allowing the next page of output to appear.
(defalias 'term-pager-page #[(arg) "\302 _!\207" [arg term-height term-pager-line] 3 (#$ . 77757) "p"])
(defalias 'term-pager-bob #[nil "eb\210\301!U\203 \302u\210\303S!\207" [term-height vertical-motion -1 recenter] 2 nil nil])
(defalias 'term-pager-eob #[nil "b\210\301\302!\210\303\304p!!b\207" [term-home-marker recenter 0 process-mark get-buffer-process] 3 nil nil])
(defalias 'term-pager-back-line #[(lines) "\302\303Z!\210o\204 \304u\210\202 \305 \210\302 !\210\304u\210\306 S!\207" [lines term-height vertical-motion 1 -1 beep recenter] 3 nil "p"])
(defalias 'term-pager-back-page #[(arg) "\302 _!\207" [arg term-height term-pager-back-line] 3 nil "p"])
(defalias 'term-pager-discard #[nil "\302\303\304\305\"\210\306 !\207" [term-terminal-parameter term-height "" interrupt-process nil t term-pager-continue] 3 nil nil])
(defalias 'term-pager-disable #[nil "\203 \302\303!\210\202
\303\304 \207" [term-pager-old-local-map term-pager-count term-pager-continue nil term-update-mode-line] 2 nil nil])
(defalias 'term-pager-enable #[nil "\204 \301\302 \207" [term-pager-count 0 term-update-mode-line] 1 nil nil])
(defalias 'term-pager-toggle #[nil "\203 \301 \207\302 \207" [term-pager-count term-pager-disable term-pager-enable] 1 nil nil])
#@75 Provide help on commands available in a terminal-emulator **MORE** break.
(defalias 'term-pager-help #[nil "\300\301!\210\302\303!\210\304\305!\207" [message "Terminal-emulator pager break help..." sit-for 0 with-electric-help #[nil "\300\301\302!!\210\303\207" [princ substitute-command-keys "\\<term-pager-break-map>Terminal-emulator MORE break.\nType one of the following keys:\n\n\\[term-pager-page] Move forward one page.\n\\[term-pager-line] Move forward one line.\n\\[universal-argument] N \\[term-pager-page] Move N pages forward.\n\\[universal-argument] N \\[term-pager-line] Move N lines forward.\n\\[universal-argument] N \\[term-pager-back-line] Move N lines back.\n\\[universal-argument] N \\[term-pager-back-page] Move N pages back.\n\\[term-pager-bob] Move to the beginning of the buffer.\n\\[term-pager-eob] Move to the end of the buffer.\n\\[term-pager-discard] Kill pending output and kill process.\n\\[term-pager-disable] Disable PAGER handling.\n\n\\{term-pager-break-map}\nAny other key is passed through to the program\nrunning under the terminal emulator and disables pager processing until\nall pending output has been dealt with." nil] 3]] 2 (#$ . 79107) nil])
(defalias 'term-pager-continue #[(new-count) "\306p!\307 !\210\310\n\311 \210\f\312
\"\210
\313\"\210\314!)\207" [process term-pager-old-local-map term-old-mode-line-format mode-line-format new-count term-pager-count get-buffer-process use-local-map nil force-mode-line-update set-process-filter "" continue-process term-pager-old-filter] 3])
(defalias 'term-handle-scroll #[(down) "\306 \\\307W\203 \202 \nZ\307W\203 \307W\204) \307V\203\300 \307V\203\300 \310`!\311 b\210\203\215 \307W\203c \n!\210\311\210` !\210\311\210\f`|\210
b\210 Z!\210\202\200 !\210` !\210\f`|\210
b\210!\210\312 [!\210\311\313\314\315 !\"\210\202\267 \247\203\247 Z\211\307W\203\247 \307\316 \210\202\267 \312 [!\210 !\210`\311\223\210
b\210
\311\211\223\210*)\207" [down term-scroll-start term-scroll-end scroll-needed save-top save-point term-current-row 0 copy-marker nil term-adjust-current-row-cache term-insert-char 10 abs term-process-pager term-home-marker term-scroll-with-delete term-vertical-motion term-current-column term-pager-count] 4])
#@41 Move down DOWN screen lines vertically.
(defalias 'term-down #[(down &optional check-for-scroll) "\306 \203 \n\204 \203 \307\f!
\310U\203 \f\310W\2046 \311\f!\210`dU\203/ \f\310W\2036 \f\f!Z\f\310Y\203J \312\313\f\"\210\310\211\202s
\310U\203m \212\312\313\f[\"\210)\212\314 y\210`\f[y\210`|\210*\310i\205z \315!)\207" [start-column check-for-scroll term-scroll-with-delete term-pager-count down term-current-row term-horizontal-column term-handle-scroll 0 term-adjust-current-row-cache term-insert-char 10 nil term-move-columns term-vertical-motion term-current-column term-start-line-column p term-height] 4 (#$ . 81397)])
(defalias 'term-unwrap-line #[nil "n?\205 \300\301!\207" [insert-before-markers 10] 2])
(defalias 'term-erase-in-line #[(kind) "\305U\203 \306 ` \307!\210` |\210\310\311\n\"\210*\305=?\205K `\312\306 !\205- \312\313 !? \305!\210 `|\210\f\203> \311c\210\314c\210\315 `\316\317$\210 b*\207" [kind saved-point cols term-vertical-motion wrapped 1 term-horizontal-column 0 term-insert-char 32 zerop term-current-column 10 put-text-property font-lock-face default] 5])
#@171 Erase (that is blank out) part of the window.
If KIND is 0, erase from (point) to (point-max);
if KIND is 1, erase from home to point; else erase from home to point-max.
(defalias 'term-erase-in-display #[(kind) "\306 \210\307=\203 n`d|\210 \205 \310 )\207\311 \312 \n \313=\203& `\202' d
\f|\210\310 \210 \313=\203@ \314\315\"\210\316\211 \317\",\207" [term-terminal-parameter need-unwrap term-home-marker kind end-region start-region term-handle-deferred-scroll 0 term-unwrap-line term-current-row term-horizontal-column 1 term-insert-char 10 nil term-goto col row term-current-column] 6 (#$ . 82529)])
(defalias 'term-delete-chars #[(count) "` \303!\210\304 \210b\210\305\306 \n\\\307\"\210`|)\207" [save-point term-vertical-motion count 1 term-unwrap-line move-to-column term-current-column t] 3])
(defalias 'term-insert-spaces #[(count) "`\306\211 \307!\210n\203 \310u\210`\311 \312\313 \f
Z\\\314\"\210`Y\203- \315`\316\317$\210 `V\2037 ` |\210\nb\210\320\321
\"\210\nb+\207" [pnt-at-eol save-eol save-point term-vertical-motion term-width count nil 1 -1 line-end-position move-to-column term-start-line-column t put-text-property font-lock-face default term-insert-char 32] 5])
(defalias 'term-delete-lines #[(lines) "` \306 \n \\\fTV\203! \n \\\fTZZ \307 !\210
`|\210\307\310\fT\n #!\210\311\312 \"\210\f \n
b,\207" [term-current-column term-start-line-column save-current-row save-start-line-column save-current-column start term-current-row term-down - term-insert-char 10 lines term-scroll-end] 5])
(defalias 'term-insert-lines #[(lines) "`\306 \307 \f\n
W\203)
\nZZ\310
\nZ!\210`\f\202L \n\\TV\203A \n\\TZZ\310\311T\n#!\210`\310!\210
`|\210\fb\210\f \n\312\313\"\210\fb-\207" [term-current-column term-start-line-column save-current-row save-start-line-column save-current-column start-deleted nil term-current-row term-down - term-insert-char 10 start term-scroll-start lines term-scroll-end] 5])
#@49 Record raw inferior process output in a buffer.
(defalias 'term-start-output-log #[(name) "\203\n \302\232\203 \303\304\305!\207\306!\204' r\307!q\210\310 \210\311p!\210\312 \210)\306!\304\313\314 !\"\207" [name term-log-buffer "" nil message "Output logging off." get-buffer get-buffer-create fundamental-mode buffer-disable-undo erase-buffer "Recording terminal emulator output into buffer \"%s\"" buffer-name] 4 (#$ . 84537) (list (if term-log-buffer nil (read-buffer "Record output in buffer: " (format "%s output-log" (buffer-name (current-buffer))) nil)))])
#@43 Discontinue raw inferior process logging.
(defalias 'term-stop-output-log #[nil "\300\301!\207" [term-start-output-log nil] 2 (#$ . 85115) nil])
#@56 Put the end of the buffer at the bottom of the window.
(defalias 'term-show-maximum-output #[nil "db\210\300\301!\207" [recenter -1] 2 (#$ . 85266) nil])
#@83 This hook is run when term is loaded in.
This is a good place to put keybindings.
(defvar term-load-hook nil (#$ . 85426))
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\307\310\315&\210\302\316\304\317\306\307\310\311&\210\302\320\304\321\306\307\310\322&\207" [run-hooks term-load-hook custom-declare-variable term-completion-autolist nil "If non-nil, automatically list possibilities on partial completion.\nThis mirrors the optional behavior of tcsh." :group term :type boolean term-completion-addsuffix t "If non-nil, add a `/' to completed directories, ` ' to file names.\nIf a cons pair, it should be of the form (DIRSUFFIX . FILESUFFIX) where\nDIRSUFFIX and FILESUFFIX are strings added on unambiguous or exact\ncompletion. This mirrors the optional behavior of tcsh." (choice (const :tag "No suffix" nil) (cons (string :tag "dirsuffix") (string :tag "filesuffix")) (other :tag "Suffix" t)) term-completion-recexact "If non-nil, use shortest completion if characters cannot be added.\nThis mirrors the optional behavior of tcsh.\n\nA non-nil value is useful if `term-completion-autolist' is non-nil too." term-completion-fignore "List of suffixes to be disregarded during file completion.\nThis mirrors the optional behavior of bash and tcsh.\n\nNote that this applies to `term-dynamic-complete-filename' only." (choice (const nil) (repeat :tag "List of suffixes" string))] 8)
#@169 Prefix prepended to absolute file names taken from process input.
This is used by term's and shell's completion functions, and by shell's
directory tracking functions.
(defvar term-file-name-prefix "" (#$ . 86859))
(defalias 'term-directory #[(directory) "\302\303!\203
P\202 !\207" [directory term-file-name-prefix expand-file-name file-name-absolute-p] 3])
#@192 Return the word of WORD-CHARS at point, or nil if none is found.
Word constituents are considered to be those in WORD-CHARS, which is like the
inside of a "[...]" (see `skip-chars-forward').
(defalias 'term-word #[(word-chars) "\212`\304\305Q\306\305Q\307 \310\311#\203 \312u\210l\206 \313 !?\205/ \314\n\315P \"\210\316\224\316\225{,\207" [word-chars non-word word limit "[" "]" "[^" re-search-backward nil move 1 looking-at re-search-forward "+" 0] 5 (#$ . 87231)])
#@113 Return the filename at point, or nil if none is found.
Environment variables are substituted. See `term-word'.
(defalias 'term-match-partial-filename #[nil "\301\302!\211\205 \303!)\207" [filename term-word "~/A-Za-z0-9+@:_.$#,={}-" substitute-in-file-name] 3 (#$ . 87713)])
#@210 Dynamically perform completion at point.
Calls the functions in `term-dynamic-complete-functions' to perform
completion until a function returns non-nil, at which point completion is
assumed to have occurred.
(defalias 'term-dynamic-complete #[nil "\211\205 @ ?\205 A\211\204 \302)\207" [term-dynamic-complete-functions functions nil] 2 (#$ . 87999) nil])
#@691 Dynamically complete the filename at point.
Completes if after a filename. See `term-match-partial-filename' and
`term-dynamic-complete-as-filename'.
This function is similar to `term-replace-by-expanded-filename', except that
it won't change parts of the filename already entered in the buffer; it just
adds completion characters to the end of the filename. A completions listing
may be shown in a help buffer if completion is ambiguous.
Completion is dependent on the value of `term-completion-addsuffix',
`term-completion-recexact' and `term-completion-fignore', and the timing of
completions listing is dependent on the value of `term-completion-autolist'.
Returns t if successful.
(defalias 'term-dynamic-complete-filename #[nil "\300 \205 \301 \302 =\204 \303\304!\210\305 \207" [term-match-partial-filename selected-window minibuffer-window message "Completing file name..." term-dynamic-complete-as-filename] 2 (#$ . 88370) nil])
#@110 Dynamically complete at point as a filename.
See `term-dynamic-complete-filename'. Returns t if successful.
(defalias 'term-dynamic-complete-as-filename #[nil "\306 \307\f\204 \310\202 \f:\204 \311\202 \f@ \f\204\" \310\202- \f:\204+ \312\202- \fA \313 \2065 \310 \314 ! \315 ! \203O \316 !\202Q ! \"\317 \"\" #\320 \321 = $#\204r \322\323 \"\210\306\202\"#\307=\203\214 \f\203\200 \312c\210$\204\"\322\324!\210\202\"#\310\230\203\231 \325 \210\202\"\326\"!#P %\327#! G\306Oc\210\317#\"\"9\203\322 \330%!\203\302
\202\304 c\210$\204!\322\331!\210\202!&\203\f\203 #\230\203\332%!\203\330%!\203\365
\202\367 c\210$\204!\322\333!\210\202!'\204 #\230\203\325 \210\202!$\204!\322\334!\210) . \207" [completion-ignore-case term-completion-fignore completion-ignored-extensions success term-completion-addsuffix dirsuffix nil t "" "/" " " term-match-partial-filename file-name-directory file-name-nondirectory term-directory file-name-completion selected-window minibuffer-window message "No completions of %s" "Sole completion" term-dynamic-list-filename-completions file-name-as-directory directory-file-name file-directory-p "Completed" file-exists-p "Completed shortest" "Partially completed" filesuffix filename pathdir pathnondir default-directory directory completion mini-flag file term-completion-recexact term-completion-autolist] 3 (#$ . 89321)])
#@475 Dynamically expand and complete the filename at point.
Replace the filename with an expanded, canonicalized and completed replacement.
"Expanded" means environment variables (e.g., $HOME) and `~'s are replaced
with the corresponding directories. "Canonicalized" means `..' and `.' are
removed, and the filename is made absolute instead of relative. For expansion
see `expand-file-name' and `substitute-in-file-name'. For completion see
`term-dynamic-complete-filename'.
(defalias 'term-replace-by-expanded-filename #[nil "\300\301\302 !\303\211#\210\304 \207" [replace-match expand-file-name term-match-partial-filename t term-dynamic-complete-filename] 4 (#$ . 90751) nil])
#@590 Dynamically complete STUB from CANDIDATES list.
This function inserts completion characters at point by completing STUB from
the strings in CANDIDATES. A completions listing may be shown in a help buffer
if completion is ambiguous.
Returns nil if no completion was inserted.
Returns `sole' if completed with the only completion match.
Returns `shortest' if completed with the shortest of the completion matches.
Returns `partial' if completed as far as possible with the completion matches.
Returns `listed' if a completion listing was shown.
See also `term-dynamic-complete-filename'.
(defalias 'term-dynamic-simple-complete #[(stub candidates) "\306\307\310 \"\311\n \"\211\204 \312\313\n\"\210\306\202\214 G\314U\203G @\211 \n\230\2030 \312\315!\210\202; \f\nG\306Oc\210\312\316!\210
\203B \317c\210)\320\202\214 \321\n \"\211 \nG\306Oc\210\203s
\203s \n\f\230\203s \f \235\203s \317c\210\312\322!\210\323\202\213 \204~ \n\f\230\203\206 \324 !\210\325\202\213 \312\326!\210\327)+\207" [completion-ignore-case candidates stub completions completion term-completion-addsuffix nil mapcar #[(x) "C\207" [x] 1] all-completions message "No completions of %s" 1 "Sole completion" "Completed" " " sole try-completion "Completed shortest" shortest term-dynamic-list-completions listed "Partially completed" partial term-completion-recexact term-completion-autolist] 4 (#$ . 91437)])
(make-obsolete 'term-dynamic-simple-complete 'completion-in-region "23.2")
#@68 List in help buffer possible completions of the filename at point.
(defalias 'term-dynamic-list-filename-completions #[nil "\306\307 \206 \310\311 !\312 !\n\203 \313\n!\202 \f \314
\"\211 \203. \315!\2022 \316\317 \".\207" [completion-ignore-case filename pathdir pathnondir default-directory directory nil term-match-partial-filename "" file-name-directory file-name-nondirectory term-directory file-name-all-completions term-dynamic-list-completions message "No completions of %s" completions] 4 (#$ . 92910) nil])
#@77 List in help buffer sorted COMPLETIONS.
Typing SPC flushes the help buffer.
(defalias 'term-dynamic-list-completions #[(completions) "\306 r\307\310!q\210p\311 \210\n\312\211\313\211\313 !\314 \210\315\316!\210+\211 \" #\317\320$\321\"!\210\322\"!\210+\323\324!\210\312\211 % &r\325\310!q\210\326\312!\211&\327H\211%:\205o \330\331%!\211 '@)!\325\310!=\205o \332&!\333=)\203~ \334%!\210\335!\202\222 %\336=\203\213 \335!\202\222 \337&!\211(+\207" [conf default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list current-window-configuration get-buffer-create "*Completions*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list sort string-lessp internal-temp-output-buffer-show message "Hit space to flush" get-buffer read-key-sequence 0 window-buffer event-start key-binding mouse-choose-completion choose-completion set-window-configuration 32 listify-key-sequence inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output completions first key position unread-command-events] 5 (#$ . 93445)])
#@295 Make a term process NAME in a buffer, running PROGRAM.
The name of the buffer is NAME.
If there is already a running process in that buffer, it is not restarted.
Optional third arg STARTFILE is the name of a file to send the contents of to
the process. Any more args are arguments to PROGRAM.
(defalias 'term-ansi-make-term #[(name program &optional startfile &rest switches) "\305!\306 !\204 r q\210\307 \210)\310 \n \f%\210 )\207" [name buffer program startfile switches get-buffer-create term-check-proc term-mode term-exec] 6 (#$ . 94553)])
(defvar term-ansi-buffer-name nil)
(defvar term-ansi-default-program nil)
(defvar term-ansi-buffer-base-name nil)
#@44 Start a terminal-emulator in a new buffer.
(defalias 'ansi-term #[(program &optional new-buffer-name) "\203 \202 \203 \305=\203 \306\n!\202 \202 \307\310 \310Q\311 !\312 \n\"\211q\210\313 \210\314 \210\315 \316\317!\210)\320 !\207" [new-buffer-name term-ansi-buffer-base-name program term-ansi-buffer-name term-escape-char t file-name-nondirectory "ansi-term" "*" generate-new-buffer-name term-ansi-make-term term-mode term-char-mode nil term-set-escape-char 24 switch-to-buffer] 4 (#$ . 95223) (list (read-from-minibuffer "Run program: " (or explicit-shell-file-name (getenv "ESHELL") (getenv "SHELL") "/bin/sh")))])
#@241 Guess whether serial ports are files on this system.
Return t if this is a Unix-based system, where serial ports are
files, such as /dev/ttyS0.
Return nil if this is Windows or DOS, where serial ports have
special identifiers such as COM1.
(defalias 'serial-port-is-file-p #[nil "\301>?\207" [system-type (windows-nt cygwin ms-dos)] 2 (#$ . 95863)])
#@53 History of serial ports used by `serial-read-name'.
(defvar serial-name-history (byte-code "\300 \203 \301\302!\203 \302C\206 \301\303!\205 \303C\207\304C\207" [serial-port-is-file-p file-exists-p "/dev/ttys0" "/dev/ttyS0" "COM1"] 2) (#$ . 96220))
#@60 History of serial port speeds used by `serial-read-speed'.
(defvar serial-speed-history (list #1="9600" "1200" "2400" "4800" #1# "14400" "19200" "28800" "38400" "57600" "115200") (#$ . 96478))
#@60 Return `serial-speed-history' cleaned up for a mouse-menu.
(defalias 'serial-nice-speed-history #[nil "\305\211\306\307\n!\310\"\211\305\211 \203( \f@\211@\232\204! B\fA\211\204 **\207" [y x serial-speed-history i --dolist-tail-- nil sort copy-sequence #[(a b) ";\205 ;\205 \302!\302 !V\207" [a b string-to-number] 3]] 4 (#$ . 96677)])
#@232 String for `serial-read-speed' for special serial ports.
If `serial-read-speed' reads this string from the user, it
returns nil, which is recognized by `serial-process-configure'
for special serial ports that cannot be configured.
(defconst serial-no-speed "nil" (#$ . 97037))
#@56 Signal an error if serial processes are not supported.
(defalias 'serial-supported-or-barf #[nil "\300\301!?\205\n \302\303!\207" [fboundp make-serial-process error "Serial processes are not supported on this system"] 2 (#$ . 97320)])
#@262 Read a serial port name from the user.
Try to be nice by providing useful defaults and history.
On Windows, prepend \.to the port name unless it already
contains a backslash. This handles the legacy ports COM1-COM9 as
well as the newer ports COM10 and higher.
(defalias 'serial-read-name #[nil "\304 \210\211@\305 \203; \306\n;\203 \307\310\n\"\202 \311\n\203% \312\n!\2066 \313\314!\203/ \314\2026 \313\315!\2056 \315\316#\202Q \317\n;\203H \307\310\n\"\202I \311\320\211\211\321\320\211&\211\203b ;\203g \322 G!\203g \n\202i \203y ;\203} \322 G!\203} \323\324!\210\305 \204\215 \325\326 \"\204\215 \327 P +\207" [serial-name-history file-name-history h x serial-supported-or-barf serial-port-is-file-p read-file-name format "Serial port (default %s): " "Serial port: " file-name-directory file-exists-p "/dev/" "/" "" read-from-minibuffer nil (file-name-history . 1) zerop error "No serial port selected" string-match "\\\\" "\\\\.\\"] 9 (#$ . 97562)])
#@119 Read a serial port speed (in bits per second) from the user.
Try to be nice by providing useful defaults and history.
(defalias 'serial-read-speed #[nil "\305 \210\211@\306\n \230\203 \307\202! \n\203 \310\311\n\"\202! \310\312!\313\211\211\314\313\211&\211 \203: \f;\203< \315\fG!\203< \n\f\203L \f;\203L \315\fG!\203P \316\317!\210\f \230\203[ \313\202r \320\f!\211\203n \f\250\203n \f\321X\203r \316\317!\210 \f+\207" [serial-speed-history history h serial-no-speed x serial-supported-or-barf read-from-minibuffer "Speed (default nil = set by port): " format "Speed (default %s b/s): " "Speed (b/s): " nil (history . 1) zerop error "Invalid speed" string-to-number 0] 9 (#$ . 98539)])
#@506 Start a terminal-emulator for a serial port in a new buffer.
PORT is the path or name of the serial port. For example, this
could be "/dev/ttyS0" on Unix. On Windows, this could be
"COM1" or "\\.\COM10".
SPEED is the speed of the serial port in bits per second. 9600
is a common value. SPEED can be nil, see
`serial-process-configure' for details.
The buffer is in Term mode; see `term-mode' for the commands to
use in that buffer.
\<term-raw-map>Type \[switch-to-buffer] to switch to another buffer.
(defalias 'serial-term #[(port speed) "\304 \210\305\306\307 \310\311\312\313&\314\n!r q\210\315 \210\316 \210db\210\317\n!`\320\223\210\321\n\322\"\210\323\n\324\"\210)\325 !\210 *\207" [port speed process buffer serial-supported-or-barf make-serial-process :port :speed :coding no-conversion :noquery t process-buffer term-mode term-char-mode process-mark nil set-process-filter term-emulate-terminal set-process-sentinel term-sentinel switch-to-buffer] 9 (#$ . 99244) (list (serial-read-name) (serial-read-speed))])
(defvar serial-mode-line-speed-menu nil)
(defvar serial-mode-line-config-menu nil)
#@125 Return the speed of the serial port of the current buffer's process.
The return value may be nil for a special serial port.
(defalias 'serial-speed #[nil "\300\301p!\302\"\207" [process-contact get-buffer-process :speed] 3 (#$ . 100362)])
(defalias 'serial-mode-line-speed-menu-1 #[(event) "\306 r\307\216\310\311 !\211@)!\210\312 \210\304 !\211\205\" \313\f\314 @!\"\211 \205* \315
!-\207" [save-selected-window--state event position selection serial-mode-line-speed-menu binding internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-window event-start serial-update-speed-menu lookup-key vector call-interactively] 5 nil "e"])
(defalias 'serial-mode-line-speed-menu #[(event) "\302 \"\207" [event serial-mode-line-speed-menu x-popup-menu] 3])
(defalias 'serial-update-speed-menu #[nil "\304\305!\306\307\310#\210\311 \312\211\205P \n@\211;\203! \313 !\206\" \314\306\315\316\317\320 \"!!\321 \322\323\324\325\326 E\327\330\331 E\257\332\333\334\335 F\257#\210)\nA\211\204 \312*\207" [serial-mode-line-speed-menu str --dolist-tail-- num make-sparse-keymap "Speed (b/s)" define-key [serial-mode-line-speed-menu-other] (menu-item "Other..." (lambda (event) (interactive "e") (let ((speed (serial-read-speed))) (serial-process-configure :speed speed) (term-update-mode-line) (message "Speed set to %d b/s" speed)))) serial-nice-speed-history nil string-to-number 0 vector make-symbol format "serial-mode-line-speed-menu-%s" menu-item lambda (event) (interactive "e") serial-process-configure :speed (term-update-mode-line) message "Speed set to %d b/s" :button :toggle = (serial-speed)] 14])
(defalias 'serial-mode-line-config-menu-1 #[(event) "\306 r\307\216\310\311 !\211@)!\210\312 \210\304 !\211\205\" \313\f\314 @!\"\211 \205* \315
!-\207" [save-selected-window--state event position selection serial-mode-line-config-menu binding internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-window event-start serial-update-config-menu lookup-key vector call-interactively] 5 nil "e"])
(defalias 'serial-mode-line-config-menu #[(event) "\302 \"\207" [event serial-mode-line-config-menu x-popup-menu] 3])
(defalias 'serial-update-config-menu #[nil "\304\305!\306\307p!\310\"\311\312\211\205U @\313\314\315\316\317\n@\nA@#!!\320\321\n8\322\323\324\325\n@\326\nA@DE\327\330\331\321\n8E\257\332\333\334 \n@\"\nA@\232B\257#\210 A\211\204 \312+\207" [serial-mode-line-config-menu config y --dolist-tail-- make-sparse-keymap "Configuration" process-contact get-buffer-process t ((:flowcontrol hw "Hardware flowcontrol (RTS/CTS)") (:flowcontrol sw "Software flowcontrol (XON/XOFF)") (:flowcontrol nil "No flowcontrol") (:stopbits 2 "2 stopbits") (:stopbits 1 "1 stopbit") (:parity odd "Odd parity") (:parity even "Even parity") (:parity nil "No parity") (:bytesize 7 "7 bits per byte") (:bytesize 8 "8 bits per byte")) nil define-key vector make-symbol format "%s-%s" menu-item 2 lambda (event) (interactive "e") serial-process-configure quote (term-update-mode-line) message "%s" :button :toggle plist-get] 15])
(provide 'term)