Current File : //usr/local/share/emacs/27.2/lisp/shell.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\307\311&\210\303\312\305\313\307\304%\210\314\315\316\317\320DD\321\322\323\307\304&\210\314\324\316\317\325DD\326\322\323\307\304&\210\314\327\316\317\330DD\331\322\332\307\304&\210\314\333\316\317\334DD\335\322\336\307\304&\210\314\337\316\317\340DD\341\322\342\307\304&\210\314\343\316\317\344DD\345\322\346\307\304&\210\314\347\316\317\350DD\351\322\352\307\304&\210\314\353\316\317\354DD\355\322\323\307\304&\210\314\356\316\317\357DD\355\322\323\307\304&\210\314\360\316\317\361DD\362\322\363\307\304&\210\314\364\316\317\365DD\366\322\323\307\312&\210\314\367\316\317\370DD\371\322\323\307\312&\210\314\372\316\317\373DD\374\322\363\307\312&\210\314\375\316\317\376DD\377\322\363\307\312&\210\314\201@ \316\317\201A DD\201B \322\363\307\312&\210\314\201C \316\317\201D DD\201E \322\323\307\312&\210\314\201F \316\317\201G DD\201H \322\201I \307\312&\210\314\201J \316\317\201K DD\201L \322\363\307\312&\210\314\201M \316\317\201N DD\201O \322\201P \307\304&\210\314\201Q \316\317\201R DD\201S \322\201T \307\304&\210\314\201U \316\317\201V DD\201W \322\201X \307\304&\210\314\201Y \316\317\201Z DD\201[ \322\201\\ \307\304&\207" [require comint pcomplete custom-declare-group shell nil "Running shell from within Emacs buffers." :group processes unix shell-directories "Directory support in shell mode." custom-declare-variable shell-dumb-shell-regexp funcall function #[0 "\300\301!\207" [purecopy "cmd\\(proxy\\)?\\.exe"] 2] "Regexp to match shells that don't save their command history, and\ndon't handle the backslash as a quote character. For shells that\nmatch this regexp, Emacs will write out the command history when the\nshell finishes, and won't remove backslashes when it unquotes shell\narguments." :type regexp shell-prompt-pattern #[0 "\300\207" [#1="^[^#$%>\n]*[#$%>] *"] 1 #1#] "Regexp to match prompts in the inferior shell.\nDefaults to \"^[^#$%>\\n]*[#$%>] *\", which works pretty well.\nThis variable is used to initialize `comint-prompt-regexp' in the\nshell buffer.\n\nIf `comint-use-prompt-regexp' is nil, then this variable is only used\nto determine paragraph boundaries. See Info node `Shell Prompts' for\nhow Shell mode treats paragraphs.\n\nThe pattern should probably not match more than one line. If it does,\nShell mode may become confused trying to distinguish prompt from input\non lines which don't start with a prompt." shell-completion-fignore #[0 "\300\207" [nil] 1] "List of suffixes to be disregarded during file/command completion.\nThis variable is used to initialize `comint-completion-fignore' in the shell\nbuffer. The default is nil, for compatibility with most shells.\nSome people like (\"~\" \"#\" \"%\")." (repeat (string :tag "Suffix")) shell-delimiter-argument-list #[0 "\300\207" [(124 38 60 62 40 41 59)] 1] "List of characters to recognize as separate arguments.\nThis variable is used to initialize `comint-delimiter-argument-list' in the\nshell buffer. The value may depend on the operating system or shell." (choice (const nil) (repeat :tag "List of characters" character)) shell-file-name-chars #[0 "\301>\203 \302\207\303\207" [system-type (ms-dos windows-nt cygwin) "~/A-Za-z0-9_^$!#%&{}@`'.,:()-" "[]~/A-Za-z0-9+@:_.$#%,={}-"] 2] "String of characters valid in a file name.\nThis variable is used to initialize `comint-file-name-chars' in the\nshell buffer. The value may depend on the operating system or shell." string shell-file-name-quote-list #[0 "\302>?\205 \303 \304\"\207" [system-type shell-delimiter-argument-list (ms-dos windows-nt) append (32 36 42 33 34 39 96 35 92)] 3] "List of characters to quote when in a file name.\nThis variable is used to initialize `comint-file-name-quote-list' in the\nshell buffer. The value may depend on the operating system or shell." (repeat character) shell-dynamic-complete-functions #[0 "\300\207" [(comint-c-a-p-replace-by-expanded-history shell-environment-variable-completion shell-command-completion shell-c-a-p-replace-by-expanded-directory pcomplete-completions-at-point shell-filename-completion comint-filename-completion)] 1] "List of functions called to perform completion.\nThis variable is used to initialize `comint-dynamic-complete-functions' in the\nshell buffer." (repeat function) shell-command-regexp #[0 "\300\207" [#2="[^;&|\n]+"] 1 #2#] "Regexp to match a single command within a pipeline.\nThis is used for directory tracking and does not do a perfect job." shell-command-separator-regexp #[0 "\300\207" [#3="[;&|\n ]*"] 1 #3#] shell-completion-execonly #[0 "\300\207" [t] 1] "If non-nil, use executable files only for completion candidates.\nThis mirrors the optional behavior of tcsh.\n\nDetecting executability of files may slow command completion considerably." boolean shell-popd-regexp #[0 "\300\207" [#4="popd"] 1 #4#] "Regexp to match subshell commands equivalent to popd." shell-pushd-regexp #[0 "\300\207" [#5="pushd"] 1 #5#] "Regexp to match subshell commands equivalent to pushd." shell-pushd-tohome #[0 "\300\207" [nil] 1] "If non-nil, make pushd with no arg behave as \"pushd ~\" (like cd).\nThis mirrors the optional behavior of tcsh." shell-pushd-dextract #[0 "\300\207" [nil] 1] "If non-nil, make \"pushd +n\" pop the nth dir to the stack top.\nThis mirrors the optional behavior of tcsh." shell-pushd-dunique #[0 "\300\207" [nil] 1] "If non-nil, make pushd only add unique directories to the stack.\nThis mirrors the optional behavior of tcsh." shell-cd-regexp #[0 "\300\207" [#6="cd"] 1 #6#] "Regexp to match subshell commands equivalent to cd." shell-chdrive-regexp #[0 "\301>\205 \302\207" [system-type (ms-dos windows-nt) "[]a-zA-Z^_`\\[\\\\]:"] 2] "If non-nil, is regexp used to track drive changes." (choice regexp (const nil)) shell-dirtrack-verbose #[0 "\300\207" [t] 1] "If non-nil, show the directory stack following directory change.\nThis is effective only if directory tracking is enabled.\nThe `dirtrack' package provides an alternative implementation of this feature -\nsee the function `dirtrack-mode'." explicit-shell-file-name #[0 "\300\207" [nil] 1] "If non-nil, is file name to use for explicitly requested inferior shell.\nWhen nil, such interactive shell sessions fallback to using either\nthe shell specified in $ESHELL or in `shell-file-name'." (choice (const :tag "None" nil) file) explicit-csh-args #[0 "\301=\203 \302\207\303\207" [system-type hpux ("-i" "-T") ("-i")] 2] "Args passed to inferior shell by \\[shell], if the shell is csh.\nValue is a list of strings, which may be nil." (repeat (string :tag "Argument")) explicit-bash-args #[0 "\300\207" [("--noediting" "-i")] 1] "Args passed to inferior shell by \\[shell], if the shell is bash.\nValue is a list of strings, which may be nil." (repeat (string :tag "Argument")) shell-input-autoexpand #[0 "\300\207" [history] 1] "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 `comint-magic-space' and\n`comint-dynamic-complete-functions'.\n\nThis variable supplies a default for `comint-input-autoexpand',\nfor Shell mode only." (choice (const :tag "off" nil) (const input) (const history) (const :tag "on" t))] 8)
#@119 List of directories saved by pushd in this buffer's shell.
Thus, this does not include the shell's current directory.
(defvar shell-dirstack nil (#$ . 7832))
(defvaralias 'shell-dirtrack-mode 'shell-dirtrackp)
#@64 Non-nil in a shell buffer means directory tracking is enabled.
(defvar shell-dirtrackp t (#$ . 8048))
#@54 Keep track of last directory for ksh `cd -' command.
(defvar shell-last-dir nil (#$ . 8156))
#@57 Command used by `shell-resync-dirs' to query the shell.
(defvar shell-dirstack-query nil (#$ . 8255))
(defvar shell-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\317\320\321\"!B#\210\322\320\323\"\324\325\326$\210\322\320\327\"\330\331\332$\210\211\207" [comint-mode-map make-sparse-keymap define-key "" shell-forward-command "" shell-backward-command " " completion-at-point [134217741] shell-resync-dirs "\277" comint-dynamic-list-filename-completions [menu-bar completion] "Complete" copy-keymap lookup-key [menu-bar completion] define-key-after [menu-bar completion] [complete-env-variable] ("Complete Env. Variable Name" . shell-dynamic-complete-environment-variable) complete-file [menu-bar completion] [expand-directory] ("Expand Directory Reference" . shell-replace-by-expanded-directory) complete-expand] 9))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable shell-mode-hook funcall function #[0 "\300\207" [nil] 1] "Hook for customizing Shell mode." :type hook :group shell] 8)
#@52 Additional expressions to highlight in Shell mode.
(defvar shell-font-lock-keywords '(("[ ]\\([+-][^ \n]+\\)" 1 font-lock-comment-face) ("^[^ \n]+:.*" . font-lock-string-face) ("^\\[[1-9][0-9]*\\]" . font-lock-string-face)) (#$ . 9377))
#@37 Shell file name started in `shell'.
(defvar shell--start-prog nil (#$ . 9623))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local shell--start-prog put permanent-local t] 4)
#@28
(fn QSTR &optional UPOS)
(defalias 'shell--unquote&requote-argument #[513 "\211C\211\242\204 \211\302\240\210\302\303\211C\304\305>\205 \306 \205 \307Q\303C\310\303\311 #\211\262\203\336 \312\f#%\210\313\224\203V \314\313\"\302\225%\210\202\327 \315\224\203p \316\314\315\"!\302\225[%\210\202\327 H\317=\203\200 ?\262\202\327 H\320=\203\323 \203\233 \321\302\225%\210\202\327 \211T\nGW\203\327 \311\321 T#\211\204\274 \nG\262\322\fGD!\210 \312T#%\266\202\327 \323\324!\210\302\225\262\202! \312\f\"G%\210\325\326\242\237\327#\242\330E\266\207\207" [system-type comint-file-name-quote-list 0 nil "[\"']\\|\\$\\(?:\\([[:alpha:]][[:alnum:]]*\\)\\|{\\(?1:[^{}]+\\)}\\)" (ms-dos windows-nt) "\\|%\\(?1:[^\\\\/]*\\)%" "\\|\\\\\\(.\\)" #[1285 "\242B\240\210\211\242GZ\240\210\242\206 \242\300V?\205- \300W\203( [\202, \242\\\240\207" [0] 8 "\n\n(fn UPOS USTRS QUPOS STR END)"] string-match substring 2 match-string 1 getenv 34 39 "'" set-match-data error "Unexpected case in shell--unquote&requote-argument!" mapconcat identity "" comint-quote-filename] 19 (#$ . 9828)])
#@12
(fn STR)
(defalias 'shell--unquote-argument #[257 "\300!@\207" [shell--unquote&requote-argument] 3 (#$ . 11001)])
#@18
(fn UPOS QSTR)
(defalias 'shell--requote-argument #[514 "\300\"\211A@\3018B\207" [shell--unquote&requote-argument 2] 6 (#$ . 11124)])
#@61 Parse whitespace separated arguments in the current region.
(defalias 'shell--parse-pcomplete-arguments #[0 "\212\301\302!\210`)`\303\211\212b\210`W\203\222 \304\303w\210`B\262\303\305\306!\203\205 \307\225b\210\310\224\203O \2049 \310\224b\210\311\202H \310\224\310\225U\203E \311\202H \312\310!B\262\202 \313\224\203l \204^ \312\313!\202e \314\315\316\312\313!#B\262\202 \302\224\203{ \312\302!B\262\202 \312\307!B\262\202 \317\320\237\321#B\266\202\202 \211\237\237)B\207" [comint-file-name-quote-list shell-backward-command 1 nil " \n;" looking-at "\\(?:[^ \n\\\"';]+\\|'\\([^']*\\)'?\\|\"\\(\\(?:[^\"\\]\\|\\\\.\\)*\\)\"?\\|\\\\\\(\\(?:.\\|\n\\)?\\)\\)" 0 3 "\\" match-string 2 replace-regexp-in-string "\\\\\\(.\\)" "\\1" mapconcat identity ""] 10 (#$ . 11269)])
#@197 Completion function for shell command names.
This is the value of `pcomplete-command-completion-function' for
Shell buffers. It implements `shell-completion-execonly' for
`pcomplete' completion.
(defalias 'shell-command-completion-function #[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\301\302\205 \303\"\207" [shell-completion-execonly pcomplete-entries nil file-executable-p] 3] nil] 5 (#$ . 12069)])
#@66 Setup completion vars for `shell-mode' and `read-shell-command'.
(defalias 'shell-completion-vars #[0 "\306\301!\210\306\303!\210\n\306\305!\210\f\306\307!\210 \306\310!\210\311 !\206& \312\306\313!\210 \306\314!\210\315\f\306\316!\210\317\306\320!\210\321\306\322!\210!\204R \312\202j !;\203] !\202j !:\204g \323\202j !A\306\324!\210\325\306\326!\210\327\306\330!\210\"\331\332\333\334\335$\207" [shell-completion-fignore comint-completion-fignore shell-delimiter-argument-list comint-delimiter-argument-list shell-file-name-chars comint-file-name-chars make-local-variable comint-file-name-quote-list comint-file-name-prefix file-remote-p "" comint-dynamic-complete-functions comint-unquote-function shell--unquote-argument comint-requote-function shell--requote-argument pcomplete-parse-arguments-function shell--parse-pcomplete-arguments pcomplete-termination-string " " pcomplete-command-completion-function shell-command-completion-function pcomplete-default-completion-function ignore comint-input-autoexpand add-hook completion-at-point-functions comint-completion-at-point nil t shell-file-name-quote-list default-directory shell-dynamic-complete-functions comint-completion-addsuffix shell-input-autoexpand] 5 (#$ . 12490)])
(put 'shell-mode 'mode-class 'special)
(defvar shell-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [shell-mode-hook variable-documentation put "Hook run after entering Shell mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp shell-mode-map definition-name shell-mode] 4)
(defvar shell-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [shell-mode-abbrev-table shell-mode-map variable-documentation put purecopy "Keymap for `shell-mode'." boundp shell-mode-syntax-table definition-name shell-mode (lambda (#1=#:def-tmp-var) (defvar shell-mode-syntax-table #1#)) make-syntax-table "Syntax table for `shell-mode'." (lambda (#1#) (defvar shell-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `shell-mode'." derived-mode-parent comint-mode] 5)
#@2879 Major mode for interacting with an inferior shell.\<shell-mode-map>
\[comint-send-input] after the end of the process' output sends the text from
the end of process to the end of the current line.
\[comint-send-input] before end of process output copies the current line minus the prompt to
the end of the buffer and sends it (\[comint-copy-old-input] just copies the current line).
\[comint-send-invisible] reads a line of text without echoing it, and sends it to
the shell. This is useful for entering passwords. Or, add the function
`comint-watch-for-password-prompt' to `comint-output-filter-functions'.
If you want to make multiple shell buffers, rename the `*shell*' buffer
using \[rename-buffer] or \[rename-uniquely] and start a new shell.
If you want to make shell buffers limited in length, add the function
`comint-truncate-buffer' to `comint-output-filter-functions'.
If you accidentally suspend your process, use \[comint-continue-subjob]
to continue it.
`cd', `pushd' and `popd' commands given to the shell are watched by Emacs to
keep this buffer's default directory the same as the shell's working directory.
While directory tracking is enabled, the shell's working directory is displayed
by \[list-buffers] or \[mouse-buffer-menu] in the `File' field.
\[dirs] queries the shell and resyncs Emacs's idea of what the current
directory stack is.
\[shell-dirtrack-mode] turns directory tracking on and off.
(The `dirtrack' package provides an alternative implementation of this
feature - see the function `dirtrack-mode'.)
\{shell-mode-map}
Customization: Entry to this mode runs the hooks on `comint-mode-hook' and
`shell-mode-hook' (in that order). Before each input, the hooks on
`comint-input-filter-functions' are run. After each shell output, the hooks
on `comint-output-filter-functions' are run.
Variables `shell-cd-regexp', `shell-chdrive-regexp', `shell-pushd-regexp'
and `shell-popd-regexp' are used to match their respective commands,
while `shell-pushd-tohome', `shell-pushd-dextract' and `shell-pushd-dunique'
control the behavior of the relevant command.
Variables `comint-completion-autolist', `comint-completion-addsuffix',
`comint-completion-recexact' and `comint-completion-fignore' control the
behavior of file name, command name and variable name completion. Variable
`shell-completion-execonly' controls the behavior of command name completion.
Variable `shell-completion-fignore' is used to initialize the value of
`comint-completion-fignore'.
Variables `comint-input-ring-file-name' and `comint-input-autoexpand' control
the initialization of the input ring history, and history expansion.
Variables `comint-output-filter-functions', a hook, and
`comint-scroll-to-bottom-on-input' and `comint-scroll-to-bottom-on-output'
control whether input and output cause the window to scroll to the end of the
buffer.
(defalias 'shell-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
@=\204R \326
\325@C#\210\327 !\210\330\f!\210
@\331\332!\203g \333\334!\210AB\335 \210\306\336!\210\337 \306\340!\210B \306\341!\210\342!\306\343!\210\344#\306\345!\210\344%\306\346!\210\347&\350\351!\210\306\352!\210\353*\354 \210\355C!D\356E!\203\232\357C!F\206\276 \360\361\362!\361\363!\203\322 \364\365!\262\364\366!\262\211\360\230\203\333 \344\262;\203\367 \367!\211\262\250\203\367 \370V\203\367 \306\371!\2109\206\372\230\203\373\202\374\230\203\375\202\376P\211G\360\232\204'\377G!\377\201J !\232\203*\344GG\203F\201K H\"\203F\201L \201M p!\201N \"\210\201O \230\203T\201P \202}\374\230\203`\201Q \202}\372\230\203l\201R \202}\201S \230\203z\201T \202}\201U I\372\230\203\222\201V \201W \201X \344\307$\210\266\201Y \307!\210)\201Z \201[ !\207" [delay-mode-hooks major-mode mode-name shell-mode-map shell-mode-syntax-table shell-mode-abbrev-table make-local-variable t comint-mode shell-mode "Shell" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table called-interactively-p any error "Can't be called interactively; did you mean `shell-script-mode' instead?" shell-completion-vars paragraph-separate "\\'" paragraph-start font-lock-defaults (shell-font-lock-keywords t) shell-dirstack nil shell-last-dir scroll-conservatively 101 shell-dirtrack-mode 1 ansi-color-apply-face-function shell-apply-ansi-color shell-reapply-ansi-color expand-file-name ring-empty-p file-remote-p "" getenv "HISTSIZE" "HISTFILE" shell-command-to-string "echo -n $HISTSIZE" "echo -n $HISTFILE" string-to-number 0 comint-input-ring-size "bash" "~/.bash_history" "ksh" "~/.sh_history" "~/.history" file-truename local-abbrev-table shell-prompt-pattern comint-prompt-regexp default-directory list-buffers-directory comint-input-ring shell--start-prog comint-input-ring-file-name shell-dumb-shell-regexp shell-dirstack-query "/dev/null" string-match set-process-sentinel get-buffer-process shell-write-history-on-exit "sh" "pwd" "echo $PWD ~-" "command dirs" "zsh" "dirs -l" "dirs" add-hook comint-preoutput-filter-functions shell-filter-ctrl-a-ctrl-b comint-read-input-ring run-mode-hooks shell-mode-hook] 10 (#$ . 14929) nil])
#@88 Apply FACE as the ansi-color face for the text between BEG and END.
(fn BEG END FACE)
(defalias 'shell-apply-ansi-color #[771 "\211\205 \300\301$\210\300\302$\207" [put-text-property ansi-color-face font-lock-face] 8 (#$ . 20362)])
#@66 Reapply ansi-color faces to the existing contents of the buffer.
(defalias 'shell-reapply-ansi-color #[0 "\214~\210e\300\301\"\206\f d\302\2052 \303\301\"\211\262\203& \304\206\" d\305$\210\262\300\301\"\262\202
\266\203)\207" [next-single-property-change ansi-color-face nil get-text-property put-text-property font-lock-face] 8 (#$ . 20608)])
#@482 Remove `^A' and `^B' characters from comint output.
Bash uses these characters as internal quoting characters in its
prompt. Due to a bug in some bash versions (including 2.03,
2.04, and 2.05b), they may erroneously show up when bash is
started with the `--noediting' option and Select Graphic
Rendition (SGR) control sequences (formerly known as ANSI escape
sequences) are used to color the prompt.
This function can be put on `comint-preoutput-filter-functions'.
(fn STRING)
(defalias 'shell-filter-ctrl-a-ctrl-b #[257 "\300\301\"\203 \302\301\303\304\211%\207\207" [string-match "[]" replace-regexp-in-string "" t] 7 (#$ . 20972)])
#@351 Called when the shell process is stopped.
Writes the input history to a history file
`comint-input-ring-file-name' using `comint-write-input-ring'
and inserts a short message in the shell buffer.
This function is a sentinel watching the shell interpreter process.
Sentinels will always get the two parameters PROCESS and EVENT.
(fn PROCESS EVENT)
(defalias 'shell-write-history-on-exit #[514 "\300 \210\301!\302!\205 r\211q\210\303\304#c)\207" [comint-write-input-ring process-buffer buffer-live-p format "\nProcess %s %s\n"] 7 (#$ . 21623)])
#@1695 Run an inferior shell, with I/O through BUFFER (which defaults to `*shell*').
Interactively, a prefix arg means to prompt for BUFFER.
If `default-directory' is a remote file name, it is also prompted
to change if called with a prefix arg.
If BUFFER exists but shell process is not running, make new shell.
If BUFFER exists and shell process is running, just switch to BUFFER.
Program used comes from variable `explicit-shell-file-name',
or (if that is nil) from the ESHELL environment variable,
or (if that is nil) from `shell-file-name'.
If a file `~/.emacs_SHELLNAME' exists, or `~/.emacs.d/init_SHELLNAME.sh',
it is given as initial input (but this may be lost, due to a timing
error, if the shell discards input when it starts up).
The buffer is put in Shell mode, giving commands for sending input
and controlling the subjobs of the shell. See `shell-mode'.
See also the variable `shell-prompt-pattern'.
\<shell-mode-map>To specify a coding system for converting non-ASCII characters
in the input and output to the shell, use \[universal-coding-system-argument]
before \[shell]. You can also specify this with \[set-buffer-process-coding-system]
in the shell buffer, after you start the shell.
The default comes from `process-coding-system-alist' and
`default-process-coding-system'.
The shell file name (sans directories) is used to make a symbol name
such as `explicit-csh-args'. If that symbol is a variable,
its value is used as a list of arguments when invoking the shell.
Otherwise, one argument `-i' is passed to the shell.
Make the shell buffer the current buffer, and return it.
(Type \[describe-mode] in the shell buffer for a list of commands.)
(fn &optional BUFFER)
(defalias 'shell #[256 "\211\204 \306\307!\203 \310p!\203 \311\206 \312!\202 p\262\313!\210\314!\203\337 \315\316 \317\320\314!\205H \321\322\323\314\324\"\325\314\326\"\327\314\330\"\257!\210\331\332\333\334\335!\336\"\337$\216\314!\203| \340\341!\203| \204| \342\343!\204| \344\303!\210\345\346\347\350\f\315\f%!!\310!\204\331 \206\215 \342\343!\206\215 \f\351!\352P\353\354\355Q!\356!\204\246
\357\360R\262\344\361!\210\351!1\362\363\364 \356!\205\277 \203\321 \365!\203\321 J\202\322 \366&\210\307 \266+\266\202b\314!\203\340\341!\203 \204\342\343!\204\344\303!\210\345\346\347\350\f\315\f%!!\310!\204b \206\342\343!\206\f\351!\352P\353\354\355Q!\356!\204/
\357\360R\262\344\361!\210\351!1\362\363\364\356!\205H\203Z\365!\203ZJ\202[\366&\210\307 \266\207" [default-directory connection-local-variables-alist enable-connection-local-variables explicit-shell-file-name shell-file-name user-emacs-directory derived-mode-p shell-mode comint-check-proc get-buffer-create "*shell*" pop-to-buffer file-remote-p t buffer-local-variables nil hack-connection-local-variables-apply :application tramp :protocol method :user user :machine host make-byte-code 0 " \211\205' \211@\211@\300\236\211\203 \302@!AL\210\202 \303@!\210\210A\266\202\202 \207" vconcat vector [connection-local-variables-alist make-local-variable kill-local-variable] 5 called-interactively-p any getenv "ESHELL" make-local-variable file-local-name expand-file-name read-file-name "Remote shell path: " file-name-nondirectory "~/.emacs_" intern-soft "explicit-" "-args" file-exists-p "init_" ".sh" shell--start-prog apply make-comint-in-buffer "shell" boundp ("-i")] 15 (#$ . 22182) (byte-code "\205+ \303\304 \305=\203 \306p!\204 \307 \202 \310\311!\"\312\n!\203+ \313\314\315\n\211\316\317%!C\207" [current-prefix-arg major-mode default-directory read-buffer "Shell buffer: " shell-mode get-buffer-process buffer-name generate-new-buffer-name "*shell*" file-remote-p expand-file-name read-directory-name "Default directory: " t nil] 8)])
#@795 Tracks cd, pushd and popd commands issued to the shell.
This function is called on each input passed to the shell.
It watches for cd, pushd and popd commands and sets the buffer's
default directory to track these commands.
You may toggle this tracking on and off with \[shell-dirtrack-mode].
If Emacs gets confused, you can resync with the shell with \[dirs].
(The `dirtrack' package provides an alternative implementation of this
feature - see the function `dirtrack-mode'.)
See variables `shell-cd-regexp', `shell-chdrive-regexp', `shell-pushd-regexp',
and `shell-popd-regexp', while `shell-pushd-tohome', `shell-pushd-dextract',
and `shell-pushd-dunique' control the behavior of the relevant command.
Environment variables are expanded, see function `substitute-in-file-name'.
(fn STR)
(defalias 'shell-directory-tracker #[257 "\205\257 \3061\255 \307\310 P\"\210\311\225\312\211\211\211\307 #\205\250 \311\225\262\313\314#\311\211#\262\313\314#\315\211#\262\211\203J \316!\262\307\317\f\320Q\"\203] \321\322!!\210\202\232 \307\317
\320Q\"\203p \323\322!!\210\202\232 \307\317\320Q\"\203\204 \324\322!!\210\202\232 \203\232 \307\317\320Q\"\203\232 \324\322!!\210\307 #\210\311\225\262\202 )\266\2050\207\210\312\207" [shell-dirtrackp shell-command-separator-regexp case-fold-search shell-command-regexp shell-popd-regexp shell-pushd-regexp (error) string-match "^" 0 nil comint-arguments substring 1 shell-unquote-argument "\\`\\(" "\\)\\($\\|[ ]\\)" shell-process-popd comint-substitute-in-file-name shell-process-pushd shell-process-cd shell-cd-regexp shell-chdrive-regexp] 11 (#$ . 25996)])
#@61 Remove all kinds of shell quoting from STRING.
(fn STRING)
(defalias 'shell-unquote-argument #[257 "\301 \302\303\304\305\306!\307\"\310$\216\303\311\211\312\313\314\315p!!@!\"\203# \316\202$ \317GW\203\207 \312#\211\262\203\207 H\320U\203P \321\322\311\211 $\262T\262\202$ \203k HU\203k \321\322\311\211 $\262\311\262\202$ \203v T\262\202$ H\262\321\322\311\211 $\262\202$ \266\204)\207" [shell-dumb-shell-regexp match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 nil string-match file-name-nondirectory process-command get-buffer-process "['`\"]" "[\\'`\"]" 92 replace-match ""] 11 (#$ . 27649)])
#@12
(fn ARG)
(defalias 'shell-process-popd #[257 "\301!\206 \302\211\203$ \211\302U\203$ \203$ \303\304@!!\210A\305 \202O \211\203L \211\302V\203L \211GX\203L \306BS\233\211AA\241\210A\305 \266\202\202O \307\310!\207" [shell-dirstack shell-extract-num 0 shell-cd shell-prefixed-directory-name shell-dirstack-message nil error "Couldn't popd"] 6 (#$ . 28329)])
#@12
(fn DIR)
(defalias 'shell-prefixed-directory-name #[257 "G\301U\203 \207\302!\203 P\207\303!\207" [comint-file-name-prefix 0 file-name-absolute-p expand-file-name] 3 (#$ . 28706)])
#@12
(fn ARG)
(defalias 'shell-process-cd #[257 "\211G\303U\203
\304P\202 \211\305\230\203 \202 \306!\n\307!\210\310 \207" [comint-file-name-prefix shell-last-dir default-directory 0 "~" "-" shell-prefixed-directory-name shell-cd shell-dirstack-message] 4 (#$ . 28902)])
#@12
(fn ARG)
(defalias 'shell-process-pushd #[257 "\306!G\307U\2032 \203 \310 \311P!\202\250 \n\203, \312\n@!\210\211\nAB\313 \262\202\250 \314\315!\202\250 \211\247\203\217 \211\nGV\203D \314\316!\202\250 \211\307U\203P \317\320!\202\250 \f\203k \211S\n8\321!\210\310 !\210\312!\210\313 \262\202\250 \nB\211G\233\322Z\322!\233!\323\"\312@!\210\211A\313 \266\205\202\250 \312\324!!\210
\203\240 \211\n\235\204\244 \211\nB\313 \262\207" [shell-pushd-tohome comint-file-name-prefix shell-dirstack default-directory shell-pushd-dextract shell-pushd-dunique shell-extract-num 0 shell-process-pushd "~" shell-cd shell-dirstack-message message "Directory stack empty." "Directory stack not that deep." error "Couldn't cd" shell-process-popd reverse append shell-prefixed-directory-name] 9 (#$ . 29185)])
#@12
(fn STR)
(defalias 'shell-extract-num #[257 "\300\301\"\205\n \302!\207" [string-match "^\\+[1-9][0-9]*$" string-to-number] 4 (#$ . 30011)])
#@107 Non-nil if Shell-Dirtrack mode is enabled.
Use the command `shell-dirtrack-mode' to change this variable.
(defvar shell-dirtrack-mode nil (#$ . 30163))
(make-variable-buffer-local 'shell-dirtrack-mode)
#@452 Toggle directory tracking in this shell buffer (Shell Dirtrack mode).
If called interactively, enable Shell-Dirtrack mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
The `dirtrack' package provides an alternative implementation of
this feature; see the function `dirtrack-mode'.
(fn &optional ARG)
(defalias 'shell-dirtrack-mode #[256 "\303 \304=\203
?\202 \305!\306V\211\205 \203' \307\310\311\312\313$\210\202- \314\310\311\313#\210\315\316\2037 \317\2028 \320\"\210\321\322!\203\\ \303 \203L \211\303 \232\203\\ \323\324\325\203W \326\202X \327#\266\210\330 \210\207" [shell-dirtrack-mode default-directory list-buffers-directory current-message toggle prefix-numeric-value 0 add-hook comint-input-filter-functions shell-directory-tracker nil t remove-hook run-hooks shell-dirtrack-mode-hook shell-dirtrack-mode-on-hook shell-dirtrack-mode-off-hook called-interactively-p any " in current buffer" message "Shell-Dirtrack mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 30372) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar shell-dirtrack-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312\306\307#\210\313\312\306\314#\207" [shell-dirtrack-mode-map shell-dirtrack-mode-hook variable-documentation put "Hook run after entering or leaving `shell-dirtrack-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode shell-dirtrack-mode nil boundp defalias shell-dirtrack-toggle make-obsolete "23.1"] 6)
#@68 Do normal `cd' to DIR, and set `list-buffers-directory'.
(fn DIR)
(defalias 'shell-cd #[257 "\303!\210\205 \211\207" [shell-dirtrackp default-directory list-buffers-directory cd] 3 (#$ . 32137)])
#@496 Resync the buffer's idea of the current directory stack.
This command queries the shell with the command bound to
`shell-dirstack-query' (default "dirs"), reads the next
line output and parses it to form the new directory stack.
DON'T issue this command unless the buffer is at a shell prompt.
Also, note that if some other subprocess decides to do output
immediately after the query, its output will be taken as the
new directory stack -- you lose. If this happens, just do the
command again.
(defalias 'shell-resync-dirs #[0 "\305p!\306!`\307!U\212b\210\204 c\210\310c\210\311\312!\210\313 \"\210\313\310\"\210`\314\223\210`\203: \315\316 !\317Q\202; \320\321P\310c\210\322u\210\323!\204S \324!\210b\210\202C \266b\210\325\326!\210\327\224\327\225S{\211G\314\312\211W\203\206 \330\331#\210\n\332\326\224\326\225#PB\262\312\225\262\202f \237\3331\235 \334@!\210\211A\211@\335 0\202\243 \336\337\"\262\266)\211\205\256 \307!b\207" [comint-process-echoes shell-dirstack-query comint-file-name-prefix shell-dirstack shell-last-dir get-buffer-process process-mark marker-position "\n" sit-for 0 comint-send-string nil "\\(" regexp-quote "\n\\)" "\\(\\)" "\\(.+\n\\)" -1 looking-at accept-process-output delete-char 1 2 string-match "\\s *\\(\\S +\\)\\s *" substring (debug error) shell-cd shell-dirstack-message message "Couldn't cd: %s"] 13 (#$ . 32346) nil])
(defalias 'dirs 'shell-resync-dirs)
(defalias 'shell-dirstack-message #[0 "\205j \304 \nB\305 \306P!\211G\203d @\211GY\203. \307\310#\230\203. \306\307\"P\262 \203T \211G GY\203T \307\310 G#\230\203T \307 G\"\211\262\203T \240\210\311!\312Q\262A\262\210\202 \313\314\"\266\204\207" [shell-dirtrack-verbose default-directory shell-dirstack comint-file-name-prefix "" expand-file-name "~/" substring 0 directory-file-name " " message "%s"] 10])
#@77 Return as a string the shell's value of environment variable VAR.
(fn VAR)
(defalias 'shell-snarf-envar #[257 "\300\301\"\302p!\303!\211b\210c\210\304\305!\210\306\"\210\211`\307\223\210`\310c\210\311u\210\312\313!\2045 \314!\210\211b\210\202% \210\211b\210\315\316!\210\305\224\305\225S{\207" [format "printenv '%s'\n" get-buffer-process process-mark sit-for 0 comint-send-string nil "\n" -1 looking-at ".+\n" accept-process-output delete-char 1] 7 (#$ . 34207)])
#@349 Copy the environment variable VARIABLE from the subshell to Emacs.
This command reads the value of the specified environment variable
in the shell, and sets the same environment variable in Emacs
(what `getenv' in Emacs would return) to that value.
That value will affect any new subprocesses that you subsequently start
from Emacs.
(fn VARIABLE)
(defalias 'shell-copy-environment-variable #[257 "\300\301!\"\207" [setenv shell-snarf-envar] 5 (#$ . 34686) (byte-code "\300\301!C\207" [read-envvar-name "Copy Shell environment variable to Emacs: "] 2)])
#@114 Move forward across ARG shell command(s). Does not cross lines.
See `shell-command-regexp'.
(fn &optional ARG)
(defalias 'shell-forward-command #[256 "\301 `\302\303P\304$\210\211`U?\205 \305\306\"\207" [shell-command-regexp line-end-position re-search-forward "\\([;&|][ ]*\\)+" move skip-syntax-backward " "] 8 (#$ . 35249) "p"])
#@115 Move backward across ARG shell command(s). Does not cross lines.
See `shell-command-regexp'.
(fn &optional ARG)
(defalias 'shell-backward-command #[256 "\212\301\302!\210`)\211`V\203 \303 \262\304\305\"\210`\306\307\310\"\311$\203, \312\224b\210\313\302w\210\211`U?\2057 \314\305\"\262\207" [shell-command-regexp comint-bol nil line-beginning-position skip-syntax-backward " " re-search-backward format "[;&|]+[ ]*\\(%s\\)" move 1 ";&|" skip-syntax-forward] 8 (#$ . 35597) "p"])
#@470 Dynamically complete the command at point.
This function is similar to `comint-dynamic-complete-filename', except that it
searches `exec-path' (minus trailing `exec-directory') for completion
candidates. Note that this may not be the same as the shell's idea of the
path.
Completion is dependent on the value of `shell-completion-execonly',
`shell-completion-fignore', plus those that affect file completion. See Info
node `Shell Options'.
Returns t if successful.
(defalias 'shell-dynamic-complete-command #[0 "\300 \211\205 \301 \204 \302\303!\210\304\305\"\207" [shell-command-completion window-minibuffer-p message "Completing command name..." apply completion-in-region] 4 (#$ . 36095) nil])
#@62 Return the completion data for the command at point, if any.
(defalias 'shell-command-completion #[0 "\300 \211\205. \301 \302\303\304\305\306!\307\"\310$\216\311\312\")?\262\205. \303\224\212\313\314!\210`)=\205. \315 \207" [comint-match-partial-filename match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "[~/]" shell-backward-command 1 shell--command-completion-data] 8 (#$ . 36805)])
#@54 Return the completion data for the command at point.
(defalias 'shell--command-completion-data #[0 "\304 \206 \305\211G\306U\203 `\202 \306\224G\306U\203 `\202 \306\225\307!\310\311\312 !A\313>\2057 \314 !?\2057 \315\"\316\317 !!\n\205F \320\321\n\322#\305\323\305\211\323C\203\271 \316\324 @\206Z \325!!\262\326!\205j \327 \"\262\203\261 @\262P\262\242\235\204\252 \203\214 \330\"\204\252 \230\204\231 \331!\204\252 \203\243 \332!\203\252 \211\242B\240\210A\262\202l A\262\202L \n\n\333\334\335\336\337!\340\"\341\342%\343\344\257\207" [system-type default-directory comint-completion-fignore shell-completion-execonly comint-match-partial-filename "" 0 file-name-nondirectory append reverse exec-path (windows-nt ms-dos) file-remote-p (".") file-name-as-directory expand-file-name mapconcat #[257 "\300!\301P\207" [regexp-quote "\\'"] 3 "\n\n(fn X)"] "\\|" nil comint-directory "." file-accessible-directory-p file-name-all-completions string-match file-directory-p file-executable-p make-byte-code 771 "\301\302\"\203
\303#\207\304\300\242$\207" vconcat vector [string-match "/" completion-file-name-table complete-with-action] 8 "\n\n(fn STRING PRED ACTION)" :exit-function #[514 "\211\300>\205 \301\302!\203 \303\225b\207\302c\207" [(sole finished) looking-at " " 0] 4 "\n\n(fn STRING FINISHED)"]] 20 (#$ . 37257)])
#@125 Dynamically complete the filename at point.
This completes only if point is at a suitable position for a
filename argument.
(defalias 'shell-dynamic-complete-filename #[0 "\300 \211\205\n \301\302\"\207" [shell-filename-completion apply completion-in-region] 4 (#$ . 38643) nil])
#@60 Return the completion data for file name at point, if any.
(defalias 'shell-filename-completion #[0 "`\300 \212\301\302\303#\203 \304\225\202 \211b\210\305\306\303#)\205 \307 \207" [comint-line-beginning-position re-search-backward "[;|&]" t 0 re-search-forward "[^ ][ ]" comint-filename-completion] 6 (#$ . 38930)])
#@62 Return the shell variable at point, or nil if none is found.
(defalias 'shell-match-partial-variable #[0 "\212\300\301\302\303#\203 \304\305!\204 \306u\210l\206 \304\307!?\205& \304\310!\210\311\224\311\225{)\207" [re-search-backward "[^A-Za-z0-9_{(]" nil move looking-at "\\$" 1 "[^A-Za-z0-9_{($]" "\\$?[{(]?[A-Za-z0-9_]*[})]?" 0] 4 (#$ . 39260)])
#@684 Dynamically complete the environment variable at point.
Completes if after a variable, i.e., if it starts with a "$".
This function is similar to `comint-dynamic-complete-filename', except that it
searches `process-environment' for completion candidates. Note that this may
not be the same as the interpreter's idea of variable names. The main problem
with this type of completion is that `process-environment' is the environment
which Emacs started with. Emacs does not track changes to the environment made
by the interpreter. Perhaps it would be more accurate if this function was
called `shell-dynamic-complete-process-environment-variable'.
Returns non-nil if successful.
(defalias 'shell-dynamic-complete-environment-variable #[0 "\300 \211\205 \301 \204 \302\303!\210\304\305\"\207" [shell-environment-variable-completion window-minibuffer-p message "Completing variable name..." apply completion-in-region] 4 (#$ . 39619) nil])
#@63 Completion data for an environment variable at point, if any.
(defalias 'shell-environment-variable-completion #[0 "\301 \302\225G\302U?\205Q \302H\303=\205Q \212\302\224b\210\304\305!\210\302\225)\306\307\"\206) `Sf\211\310\267\2029 \311\202: \312\202: \313\262\314\315\316\317\320\321 !\322\"\323\324%\257\266\203\207" [process-environment shell-match-partial-variable 0 36 looking-at "\\$?[({]*" mapcar #[257 "\300\301\302\303\"#\207" [substring 0 string-match "="] 7 "\n\n(fn X)"] #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (123 49 40 53)) "}" ")" "" :exit-function make-byte-code 514 "\211\301>\205% \300\302\303\304!!!\205 \305P\306\307!!\203! \310\225b\202# \211c\262\207" vconcat vector [(sole finished) file-directory-p comint-directory getenv "/" looking-at regexp-quote 0] 7 "\n\n(fn S FINISHED)"] 15 (#$ . 40570)])
#@92 Expand directory stack reference before point.
For use on `completion-at-point-functions'.
(defalias 'shell-c-a-p-replace-by-expanded-directory #[0 "\302 \205K \212\303\224b\210 B\304\305!\203 G\202% \304\306!\205% \307\310\224\310\225{!\211\205H \303\224\303\225\3118!\312\303\313\314\315 %\316\"\317$\266\203\266\202)\207" [default-directory shell-dirstack comint-match-partial-filename 0 looking-at "=-/?" "=\\([0-9]+\\)/?" string-to-number 1 file-name-as-directory make-byte-code "\301\300GY\203 \305\306!\207\212\302b\210\304c\210\307\303\302Z!\210)\310\311\301\"\210\312\207" vconcat vector [error "Directory stack not that deep" delete-char message "Directory item: %d" t] 3] 15 (#$ . 41462)])
#@181 Expand directory stack reference before point.
Directory stack references are of the form "=digit" or "=-".
See `default-directory' and `shell-dirstack'.
Returns t if successful.
(defalias 'shell-replace-by-expanded-directory #[0 "\300 \211\205 \211 \207" [shell-c-a-p-replace-by-expanded-directory] 2 (#$ . 42185) nil])
(provide 'shell)
Mini Shell