| 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/shell.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:30 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/shell.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\307\311&\210\303\312\305\313\307\304%\210\303\314\305\315\307\304%\210\316\317\320\321\322DD\323\324\325\307\304&\210\316\326\320\321\327DD\330\324\325\307\304&\210\316\331\320\321\332DD\333\324\334\307\304&\210\316\335\320\321\336DD\337\324\340\307\304&\210\316\341\320\321\342DD\343\324\344\307\304&\210\316\345\320\321\346DD\347\324\350\307\304&\210\316\351\320\321\352DD\353\324\354\307\304&\210\316\355\320\321\356DD\357\324\325\307\304&\210\316\360\320\321\361DD\357\324\325\307\304&\210\316\362\320\321\363DD\364\324\365\307\304&\210\316\366\320\321\367DD\370\324\325\307\312&\210\316\371\320\321\372DD\373\324\325\307\312&\210\316\374\320\321\375DD\376\324\365\307\312&\210\316\377\320\321\201@ DD\201A \324\365\307\312&\210\316\201B \320\321\201C DD\201D \324\365\307\312&\210\316\201E \320\321\201F DD\201G \324\325\307\312&\210\316\201H \320\321\201I DD\201J \324\201K \307\312&\210\316\201L \320\321\201M DD\201N \324\365\307\312&\210\316\201O \320\321\201P DD\201Q \324\201R \307\304&\210\316\201S \320\321\201T DD\201U \324\201V \307\304&\210\316\201W \320\321\201X DD\201Y \324\201Z \307\304&\210\316\201[ \320\321\201\\ DD\201] \324\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." shell-faces "Faces in shell buffers." custom-declare-variable shell-dumb-shell-regexp funcall function #[0 "\300\301!\207" [purecopy "cmd\\(proxy\\)?\\.exe"] 2 "\n\n(fn)"] "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" ["^[^#$%>\n]*[#$%>] *"] 1 "^[^#$%>\n]*[#$%>] *\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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" ["[^;&|\n]+"] 1 "[^;&|\n]+\n\n(fn)"] "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" ["[;&|\n ]*"] 1 "[;&|\n ]*\n\n(fn)"] shell-completion-execonly #[0 "\300\207" [t] 1 "\n\n(fn)"] "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" ["popd"] 1 "popd\n\n(fn)"] "Regexp to match subshell commands equivalent to popd." shell-pushd-regexp #[0 "\300\207" ["pushd"] 1 "pushd\n\n(fn)"] "Regexp to match subshell commands equivalent to pushd." shell-pushd-tohome #[0 "\300\207" [nil] 1 "\n\n(fn)"] "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 "\n\n(fn)"] "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 "\n\n(fn)"] "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" ["cd"] 1 "cd\n\n(fn)"] "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 "\n\n(fn)"] "If non-nil, is regexp used to track drive changes." (choice regexp (const nil)) shell-dirtrack-verbose #[0 "\300\207" [t] 1 "\n\n(fn)"] "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 "\n\n(fn)"] "If non-nil, is file name to use for explicitly requested inferior shell." (choice (const :tag "None" nil) file) explicit-csh-args #[0 "\301=\203 \302\207\303\207" [system-type hpux ("-i" "-T") ("-i")] 2 "\n\n(fn)"] "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 "\303\300!\203\n \206 \304\305!\206 \306!\n\2045 \211\307\232\2035 \310!\2035 \311\312\313\314!\315P!\"\2035 \316\2026 \317\207" [explicit-shell-file-name shell-file-name purify-flag boundp getenv "ESHELL" file-name-nondirectory "bash" file-executable-p string-match "bad option" shell-command-to-string shell-quote-argument " --noediting" ("-i") ("--noediting" "-i")] 7 "\n\n(fn)"] "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 "\n\n(fn)"] "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 (#$ . 8509))
#@64 Non-nil in a shell buffer means directory tracking is enabled.
(defvar shell-dirtrackp t (#$ . 8673))
#@54 Keep track of last directory for ksh `cd -' command.
(defvar shell-last-dir nil (#$ . 8781))
#@57 Command used by `shell-resync-dirs' to query the shell.
(defvar shell-dirstack-query nil (#$ . 8880))
(defvar shell-mode-map (byte-code "\301 \244\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 "\n\n(fn)"] "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)) (#$ . 10018))
(defalias 'shell--unquote&requote-argument #[513 "\211C\211@\204 \211\302\240\210\302\303\211C\304\305\306\307>\205 \310 \205 \311\260\303C\312\303\313 #\211\262\203\324
O%\210\314\224\203X \315\314\"\302\225%\210\202\315 \316\224\203r \317\315\316\"!\302\225[%\210\202\315 H\320=\203\202 ?\262\202\315 H\321=\203\311 \203\235 \322\302\225%\210\202\315 \211\nGTW\203\315 \313\322 T# TO\206\303 G%\266\202\315 \323\324!\210\302\225\262\202$
\303OG%\210\325\326@\237\327#@\330E\266\207\207" [system-type comint-file-name-quote-list 0 nil "[\"']" "\\|\\$\\(?:\\([[:alpha:]][[:alnum:]]*\\)" "\\|{\\(?1:[^{}]+\\)}\\)" (ms-dos windows-nt) "\\|%\\(?1:[^\\\\/]*\\)%" "\\|\\\\\\(.\\)" #[1285 "@B\240\210\211@GZ\240\210@\206 @\300V?\205- \300W\203( [\202, @\\\240\207" [0] 8 "\n\n(fn UPOS USTRS QUPOS STR END)"] string-match 2 match-string 1 getenv 34 39 "'" error "Unexpected case in shell--unquote&requote-argument!" mapconcat identity "" comint-quote-filename] 18 "\n\n(fn QSTR &optional UPOS)"])
(defalias 'shell--unquote-argument #[257 "\300!@\207" [shell--unquote&requote-argument] 3 "\n\n(fn STR)"])
(defalias 'shell--requote-argument #[514 "\300\"\211A@\3018B\207" [shell--unquote&requote-argument 2] 6 "\n\n(fn UPOS QSTR)"])
#@67 Parse whitespace separated arguments in the current region.
(fn)
(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 (#$ . 11595)])
#@203 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.
(fn)
(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 "\n\n(fn)"] nil] 5 (#$ . 12399)])
#@72 Setup completion vars for `shell-mode' and `read-shell-command'.
(fn)
(defalias 'shell-completion-vars #[0 "\306\301!\210\306\303!\210\n\306\305!\210\f\306\307!\210\306\310!\210 \306\311!\210\312 \306\313!\210\314 \306\315!\210\316
\306\317!\210 \204D \320\202\\ ;\203O \202\\ :\204Y \321\202\\ A\306\322!\210\323\306\324!\210\325 \326\327\330\331\332$\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-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 add-hook completion-at-point-functions comint-completion-at-point nil t shell-file-name-quote-list shell-dynamic-complete-functions comint-completion-addsuffix shell-input-autoexpand comint-input-autoexpand] 5 (#$ . 12837)])
(byte-code "\300\301\302\303#\210\304\305N\204 \300\304\305\306\307!#\210\310\311!\204 \300\311\312\301#\210\300\207" [put shell-mode mode-class special shell-mode-hook variable-documentation purecopy "Hook run when 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] 5)
(defvar shell-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" [shell-mode-map variable-documentation put purecopy "Keymap for `shell-mode'." boundp shell-mode-syntax-table definition-name shell-mode] 5)
(defvar shell-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [shell-mode-syntax-table variable-documentation put purecopy "Syntax table for `shell-mode'." shell-mode-abbrev-table definition-name shell-mode] 5)
(defvar shell-mode-abbrev-table (progn (define-abbrev-table 'shell-mode-abbrev-table nil) shell-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [shell-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `shell-mode'." shell-mode derived-mode-parent comint-mode] 5)
#@2878 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).
\[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.
(fn)
(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
@AB\331 \210\306\332!\210\333\306\334!\210B \306\335!\210\336 \306\337!\210\340 \306\341!\210\340!\342\343!\210\306\344!\210\345$\346C!D\347E!\203>\350\351\352p!!@!\353\354!\211;\203\307 \355!\211\262\250\203\307 \211\356V\203\307 \306\357!\210\211/\353\360!\206\342 \361\230\203\327 \362\202\342 \363\230\203\341 \364\202\342 \365\211F\366\232\204\365 \367F!\367\370!\232\203\370 \340FF\203\f\371G\"\203\f\372\352p!\373\"\210\374\230\203\375\202!\363\230\203 \376\202!\377H\361\230\2036\201I \201J \201K \340\307$\210\266\201L \307!\210)\201M \201N !\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 shell-completion-vars paragraph-separate "\\'" paragraph-start font-lock-defaults (shell-font-lock-keywords t) shell-dirstack nil shell-last-dir shell-dirtrack-mode 1 ansi-color-apply-face-function #[771 "\211\205\n \300\301$\207" [put-text-property font-lock-face] 8 "\n\n(fn BEG END FACE)"] expand-file-name ring-empty-p file-name-nondirectory process-command get-buffer-process getenv "HISTSIZE" string-to-number 0 comint-input-ring-size "HISTFILE" "bash" "~/.bash_history" "ksh" "~/.sh_history" "~/.history" "" file-truename "/dev/null" string-match set-process-sentinel shell-write-history-on-exit "sh" "pwd" "echo $PWD ~-" "dirs" local-abbrev-table shell-prompt-pattern comint-prompt-regexp default-directory list-buffers-directory comint-input-ring comint-input-ring-file-name shell-dumb-shell-regexp shell-dirstack-query add-hook comint-preoutput-filter-functions shell-filter-ctrl-a-ctrl-b comint-read-input-ring run-mode-hooks shell-mode-hook] 8 (#$ . 15323) nil])
#@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 (#$ . 20403)])
#@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 (#$ . 21054)])
#@1620 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'.
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.
(Type \[describe-mode] in the shell buffer for a list of commands.)
(fn &optional BUFFER)
(defalias 'shell #[256 "\211\204 \304\305!\203 \306p!\203 \307\206 \310!\202 p\262\311\312!\203I \313!\203I \204I \314\315!\204I r\211q\210\316\301!\210\313\317\320\321\n\322\n%!\323\")\324!\210\306!\204\241 \206^ \314\315!\206^ \n\325!\326P\327\330\331Q!\332!\204w \333\334R\262\335\336\337\332!\205\207 \203\231 \340!\203\231 J\202\232 \341&\210\305 \266\207" [default-directory explicit-shell-file-name shell-file-name user-emacs-directory derived-mode-p shell-mode comint-check-proc get-buffer-create "*shell*" called-interactively-p any file-remote-p getenv "ESHELL" make-local-variable expand-file-name read-file-name "Remote shell path: " t localname pop-to-buffer-same-window file-name-nondirectory "~/.emacs_" intern-soft "explicit-" "-args" file-exists-p "init_" ".sh" apply make-comint-in-buffer "shell" boundp ("-i")] 13 (#$ . 21613) (byte-code "\205 \302\303\304\305!\"\306 !\203 \307\310\311 \211\312\313%!C\207" [current-prefix-arg default-directory read-buffer "Shell buffer: " 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 \301\302\303\304\305\306\307!\310\"\311\312%D\313\302\314\301EDC\217\207" [shell-dirtrackp #1=#:err funcall make-byte-code 0 "\306\307 P\300\"\210\310\225\311\211\211\211\311\262\306 \300#\205\233 \310\225\262\312\300O\310\211#\262\312\300O\313\211#\262\211\203> \314!\262\306\315\f\316Q\"\203Q \317\320!!\210\202\216 \306\315
\316Q\"\203d \321\320!!\210\202\216 \306\315\316Q\"\203x \322\320!!\210\202\216 \203\216 \306\315\316Q\"\203\216 \322\320!!\210\306 \300#\210\310\225\262\202 )\207" vconcat vector [shell-command-separator-regexp case-fold-search shell-command-regexp shell-popd-regexp shell-pushd-regexp string-match "^" 0 nil comint-arguments 1 shell-unquote-argument "\\`\\(" "\\)\\($\\|[ ]\\)" shell-process-popd comint-substitute-in-file-name shell-process-pushd shell-process-cd shell-cd-regexp shell-chdrive-regexp] 9 "\n\n(fn)" error #[257 "\300\207" ["Couldn't cd"] 2 "Couldn't cd\n\n(fn IGNORED)"]] 9 (#$ . 24394)])
#@61 Remove all kinds of shell quoting from STRING.
(fn STRING)
(defalias 'shell-unquote-argument #[257 "\301 \302\303\304\305\306\307!\310\"\311\312%DC\216\304\313\211\314\315\316\317p!!@!\"\203( \320\202) \321GW\203\214 \314#\211\262\203\214 H\322U\203U \323\324\313\211 $\262T\262\202) \203p HU\203p \323\324\313\211 $\262\313\262\202) \203{ T\262\202) H\262\323\324\313\211 $\262\202) \266\204)\207" [shell-dumb-shell-regexp match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" nil string-match file-name-nondirectory process-command get-buffer-process "['`\"]" "[\\'`\"]" 92 replace-match ""] 11 (#$ . 26214)])
(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 "\n\n(fn ARG)"])
(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 "\n\n(fn DIR)"])
(defalias 'shell-process-cd #[257 "\303G!\203
\304P\202 \211\305\230\203 \202 \306!\n\307!\210\310 \207" [comint-file-name-prefix shell-last-dir default-directory zerop "~" "-" shell-prefixed-directory-name shell-cd shell-dirstack-message] 4 "\n\n(fn ARG)"])
(defalias 'shell-process-pushd #[257 "\306!\307G!\2032 \203 \310 \311P!\202\252 \n\203, \312\n@!\210\211\nAB\313 \262\202\252 \314\315!\202\252 \211\247\203\221 \211\nGV\203D \314\316!\202\252 \211\317U\203R \320\314\321!!\202\252 \f\203m \211S\n8\322!\210\310 !\210\312!\210\313 \262\202\252 \nB\211G\233\323Z\323!\233!\324\"\312@!\210\211A\313 \266\205\202\252 \312\325!!\210
\203\242 \211\n\235\204\246 \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 zerop shell-process-pushd "~" shell-cd shell-dirstack-message message "Directory stack empty." "Directory stack not that deep." 0 error "Couldn't cd" shell-process-popd reverse append shell-prefixed-directory-name] 9 "\n\n(fn ARG)"])
(defalias 'shell-extract-num #[257 "\300\301\"\205\n \302!\207" [string-match "^\\+[1-9][0-9]*$" string-to-number] 4 "\n\n(fn STR)"])
(defvaralias 'shell-dirtrack-mode 'shell-dirtrackp)
#@107 Non-nil if Shell-Dirtrack mode is enabled.
Use the command `shell-dirtrack-mode' to change this variable.
(defvar shell-dirtrack-mode nil (#$ . 28747))
(make-variable-buffer-local 'shell-dirtrack-mode)
#@370 Toggle directory tracking in this shell buffer (Shell Dirtrack mode).
With a prefix argument ARG, enable Shell Dirtrack mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
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!\203Y \303 \203L \211\303 \232\203Y \323\324\203V \325\202W \326\"\210\210\327 \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 message "Shell-Dirtrack mode %sabled" "en" "dis" force-mode-line-update] 8 (#$ . 28956) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306\302\303#\210\307\306\302\310#\207" [shell-dirtrack-mode-map 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 (#$ . 30296)])
#@502 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.
(fn)
(defalias 'shell-resync-dirs #[0 "\303p!\304!`\305!U\212b\210\204 c\210\306c\210\307\310!\210\311 \"\210\311\306\"\210`\312\223\210`\203: \313\314 !\315Q\202; \316\317P\306c\210\320u\210\321!\204S \322!\210b\210\202C \266b\210\323\324!\210\325\224\325\225S{\211G\312\310\211W\203\205 \326\327#\210\n\324\224\324\225OPB\262\310\225\262\202f \237\330\331\332\310\333\334\335!\336\"\337\340%D\341\331\342\330EDC\217\266)\211\205\252 \305!b\207" [comint-process-echoes shell-dirstack-query comint-file-name-prefix 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 *" #1=#:err funcall make-byte-code "\303\300@!\210\300A\211@\304 \207" vconcat vector [shell-dirstack shell-last-dir shell-cd shell-dirstack-message] 3 "\n\n(fn)" error #[257 "\300\301!\207" [message "Couldn't cd"] 3 "\n\n(fn IGNORED)"]] 16 (#$ . 30505) nil])
(defalias 'dirs 'shell-resync-dirs)
(defalias 'shell-dirstack-message #[0 "\205h \304 \nB\305 \306P!\211G\203b @\211GY\203- \307O\230\203- \306\310OP\262 \203R \211G GY\203R \307 GO\230\203R \211 G\310O\211\262\203R \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 "~/" 0 nil directory-file-name " " message "%s"] 9 "\n\n(fn)"])
#@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 (#$ . 32495)])
#@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 (#$ . 32974) (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$\205 \305\306!\207" [shell-command-regexp line-end-position re-search-forward "\\([;&|][ ]*\\)+" move skip-syntax-backward " "] 7 (#$ . 33537) "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$\205) \312\224b\210\313\302w\207" [shell-command-regexp comint-bol nil line-beginning-position skip-syntax-backward " " re-search-backward format "[;&|]+[ ]*\\(%s\\)" move 1 ";&|"] 7 (#$ . 33870) "p"])
#@422 Dynamically complete the command at point.
This function is similar to `comint-dynamic-complete-filename', except that it
searches `exec-path' (minus the trailing Emacs library path) 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', plus
those that effect file completion.
Returns t if successful.
(fn)
(defalias 'shell-dynamic-complete-command #[0 "\300 \211\205 \301\302 !\204 \303\304!\210\305\306\"\207" [shell-command-completion window-minibuffer-p selected-window message "Completing command name..." apply completion-in-region] 4 (#$ . 34313) nil])
#@68 Return the completion data for the command at point, if any.
(fn)
(defalias 'shell-command-completion #[0 "\300 \211\2053 \301 \302\303\304\305\306\307!\310\"\311\312%DC\216\313\314\")?\262\2053 \304\224\212\315\316!\210`)=\2053 \317 \207" [comint-match-partial-filename match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" string-match "[~/]" shell-backward-command 1 shell--command-completion-data] 9 (#$ . 34996)])
#@60 Return the completion data for the command at point.
(fn)
(defalias 'shell--command-completion-data #[0 "\304 \206 \305\306G!\203 `\202 \307\224\306G!\203 `\202 \307\225\310!\311!A\312\313 !!\n\2055 \314\315\n\316#\305\317\305\211\317C\203\250 \312\320 @\206I \321!!\262\322!\205Y \323 \"\262\203\240 @\262P\262@\235\204\231 \203{ \324\"\204\231 \230\204\210 \325!\204\231 \203\222 \326!\203\231 \211@B\240\210A\262\202[ A\262\202; \n\n\327\330\331\332\333!\334\"\335\336%\337\340\257\207" [exec-path default-directory comint-completion-fignore shell-completion-execonly comint-match-partial-filename "" zerop 0 file-name-nondirectory reverse 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@$\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 (#$ . 35484)])
#@131 Dynamically complete the filename at point.
This completes only if point is at a suitable position for a
filename argument.
(fn)
(defalias 'shell-dynamic-complete-filename #[0 "\300 \211\205\n \301\302\"\207" [shell-filename-completion apply completion-in-region] 4 (#$ . 36769) nil])
#@66 Return the completion data for file name at point, if any.
(fn)
(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 (#$ . 37062)])
#@68 Return the shell variable at point, or nil if none is found.
(fn)
(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 (#$ . 37398)])
#@690 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.
(fn)
(defalias 'shell-dynamic-complete-environment-variable #[0 "\300 \211\205 \301\302 !\204 \303\304!\210\305\306\"\207" [shell-environment-variable-completion window-minibuffer-p selected-window message "Completing variable name..." apply completion-in-region] 4 (#$ . 37763) nil])
#@69 Completion data for an environment variable at point, if any.
(fn)
(defalias 'shell-environment-variable-completion #[0 "\301 \302\225\303G!?\205S \302H\304=\205S \212\302\224b\210\305\306!\210\302\225)\307\310\"Sf\211\311=\2031 \312\202< \211\313=\203; \314\202< \315\262\316\317\320\321\322\323 !\324\"\325\326%\257\266\203\207" [process-environment shell-match-partial-variable 0 zerop 36 looking-at "\\$?[({]*" mapcar #[257 "\211\300\301\302\"O\207" [0 string-match "="] 6 "\n\n(fn X)"] 123 "}" 40 ")" "" :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 (#$ . 38741)])
#@98 Expand directory stack reference before point.
For use on `completion-at-point-functions'.
(fn)
(defalias 'shell-c-a-p-replace-by-expanded-directory #[0 "\302 \205L \212\303\224b\210 B\304\305!\203 G\202% \304\306!\205% \307\310\224\310\225{!\211\205I \303\224\303\225\3118!\312\303\313\314\315 %\316\"\317\320%\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 "\n\n(fn)"] 15 (#$ . 39544)])
#@187 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.
(fn)
(defalias 'shell-replace-by-expanded-directory #[0 "\300 \211\205 \211 \207" [shell-c-a-p-replace-by-expanded-directory] 2 (#$ . 40288) nil])
(provide 'shell)