;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (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\201ADD\201B\322\363\307\312&\210\314\201C\316\317\201DDD\201E\322\323\307\312&\210\314\201F\316\317\201GDD\201H\322\201I\307\312&\210\314\201J\316\317\201KDD\201L\322\363\307\312&\210\314\201M\316\317\201NDD\201O\322\201P\307\304&\210\314\201Q\316\317\201RDD\201S\322\201T\307\304&\210\314\201U\316\317\201VDD\201W\322\201X\307\304&\210\314\201Y\316\317\201ZDD\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 #1=""] "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 #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 #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 #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 #1#] "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 #1#] "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 #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" ["[^;&|\n]+"] 1 #1#] "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 #1#] shell-completion-execonly #[0 "\300\207" [t] 1 #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" ["popd"] 1 #1#] "Regexp to match subshell commands equivalent to popd." shell-pushd-regexp #[0 "\300\207" ["pushd"] 1 #1#] "Regexp to match subshell commands equivalent to pushd." shell-pushd-tohome #[0 "\300\207" [nil] 1 #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 #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 #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" ["cd"] 1 #1#] "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 #1#] "If non-nil, is regexp used to track drive changes." (choice regexp (const nil)) shell-dirtrack-verbose #[0 "\300\207" [t] 1 #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 #1#] "If non-nil, the file name to use for explicitly requested inferior shells.\nWhen nil, such interactive shell sessions fall back to using the\nshell specified in either the environment variable \"ESHELL\" or\n`shell-file-name'." (choice (const :tag "Default" nil) file) explicit-csh-args #[0 "\301=\203\302\207\303\207" [system-type hpux ("-i" "-T") ("-i")] 2 #1#] "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 #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 #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 (#$ . 7584)) (defvaralias 'shell-dirtrack-mode 'shell-dirtrackp) #@64 Non-nil in a shell buffer means directory tracking is enabled. (defvar shell-dirtrackp t (#$ . 7800)) #@54 Keep track of last directory for ksh `cd -' command. (defvar shell-last-dir nil (#$ . 7908)) #@57 Command used by `shell-resync-dirs' to query the shell. (defvar shell-dirstack-query nil (#$ . 8007)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable shell-has-auto-cd funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, `shell-mode' handles implicit \"cd\" commands.\nImplicit \"cd\" is changing the directory if the command is a directory.\nYou can make this variable buffer-local to change it, per shell-mode instance.\nUseful for shells like zsh that has this feature." :type boolean :group shell-directories :version "28.1"] 10) (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#\210\302\317\320\321\322\323\"!B#\210\324\322\325\"\326\327\330$\210\324\322\331\"\332\333\334$\210\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 "nd" shell-narrow-to-prompt [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)) (#$ . 9658)) #@37 Shell file name started in `shell'. (defvar shell--start-prog nil (#$ . 9904)) (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\334  O%\210\312\224\203U\313\312\"\302\225%\210\202\325\314\224\203o\315\313\314\"!\302\225[%\210\202\325 H\316=\203?\262\202\325 H\317=\203\321\203\232\320\302\225%\210\202\325\211T\nGW\203\325\311\320 T#\211\204\273\nG\262\321\fGD!\210 TO%\266\202\325\322\323!\210\302\225\262\202!  \303OG%\210\324\325\242\237\326#\242\327E\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 2 match-string 1 getenv 34 39 "'" set-match-data error "Unexpected case in shell--unquote&requote-argument!" mapconcat identity "" comint-quote-filename] 18 (#$ . 10109)]) #@12 (fn STR) (defalias 'shell--unquote-argument #[257 "\300!@\207" [shell--unquote&requote-argument] 3 (#$ . 11249)]) #@18 (fn UPOS QSTR) (defalias 'shell--requote-argument #[514 "\300\"\211A@\3018B\207" [shell--unquote&requote-argument 2] 6 (#$ . 11372)]) #@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 (#$ . 11517)]) #@167 Split STRING (a shell command) into a list of strings. General shell syntax, like single and double quoting, as well as backslash quoting, is respected. (fn STRING) (defalias 'split-string-shell-command #[257 "\302\303\304\"r\211q\210\305\306\"\216c\210\307 @+\207" [shell-file-name-quote-list comint-file-name-quote-list generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] shell--parse-pcomplete-arguments] 5 (#$ . 12317)]) #@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!\203 \302\303\304\211\211$\207\302\305\304\211\211$\207" [pcomplete-match "/" pcomplete--here #[0 "\301\302\205\303\"\207" [shell-completion-execonly pcomplete-entries nil file-executable-p] 3] nil #[0 "\300\301 8\207" [2 shell--command-completion-data] 2]] 5 (#$ . 12814)]) #@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 (#$ . 13354)]) (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) #@2880 Major mode for interacting with an inferior shell. \ \[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 @AB\331 \210\306\332!\210\333\306\334!\210B\306\335!\210\336\306\337!\210\340\306\341!\210\340!\306\342!\210\343\"\344\345!\210\306\346!\210\347&\350 \210\351C!D\352E!\203\244\353C!F\206\264\354\355\356!\355\357!\203\310\360\361!\262\360\362!\262\211\354\230\203\321\340\262;\203\355\363!\211\262\250\203\355\364V\203\355\306\365!\2105\206\366\230\203\374\367\202\370\230\203\371\202\372\230\203\373\202\374P\211G\354\232\204&\375G!\375H!\232\203)\340GG\203A\376I\"\203A\377\201Lp!\201M\"\210\201N\230\203O\201O\202v\370\230\203[\201P\202v\366\230\203g\201Q\202v\372\230\203s\201R\202v\201SJ\366\230\203\213\201T\201U\201V\340\307$\210\372\230\203\234\306\201K!\210\201WK\266\201X\307!\210)\201Y\201Z!\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 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" "zsh" "~/.zsh_history" "~/.history" file-truename string-match set-process-sentinel 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 null-device shell-dumb-shell-regexp shell-dirstack-query comint-input-ring-file-prefix get-buffer-process shell-write-history-on-exit "sh" "pwd" "echo $PWD ~-" "command dirs" "dirs -l" "dirs" add-hook comint-preoutput-filter-functions shell-filter-ctrl-a-ctrl-b ": [[:digit:]]+:[[:digit:]]+;" comint-read-input-ring run-mode-hooks shell-mode-hook] 10 (#$ . 15793)]) #@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 (#$ . 21225)]) #@66 Reapply ansi-color faces to the existing contents of the buffer. (defalias 'shell-reapply-ansi-color #[0 "\214~\210e\300\301\"\206\fd\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 (#$ . 21471)]) #@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 (#$ . 21835)]) #@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!\205r\211q\210\303\304#c)\207" [comint-write-input-ring process-buffer buffer-live-p format "\nProcess %s %s\n"] 7 (#$ . 22486)]) #@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'. \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!\202p\262\313!\210\314!\203\343\315\316 \317\320\317\314!\205M\321\206<\322\323\314\324\"\325\314\326\"\327\314\330\"\257\262!\210\331\332\"\216\314!\203\202\333\334!\203\202 \204\202\335\336!\204\202\337\303!\210\340\341\342\343\344\345\346\f\315\f\314&!!#\310!\204\337 \206\223\335\336!\206\223\f\347!\350P\351\352\353Q!\354!\204\254 \355\356R\262\337\357!\210\347!/\360\361\362 \354!\205\305\203\327\363!\203\327J\202\330\364&\210\307 \266+\266\207\314!\203\333\334!\203 \204\335\336!\204\337\303!\210\340\341\342\343\344\345\346\f\315\f\314&!!#\310!\204l \206 \335\336!\206 \f\347!\350P\351\352\353Q!\354!\2049 \355\356R\262\337\357!\210\347!/\360\361\362\354!\205R\203d\363!\203dJ\202e\364&\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-same-window file-remote-p t buffer-local-variables nil hack-connection-local-variables-apply :application tramp :protocol method :user user :machine host make-closure #[0 " \211\205(\211@\211@\300\236\211\203\302@!AL\266\202!\303@!\266A\266\202\202\207" [V0 connection-local-variables-alist make-local-variable kill-local-variable] 5] called-interactively-p any getenv "ESHELL" make-local-variable replace-regexp-in-string "^[[:alpha:]]:" "" 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 (#$ . 23045) (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\312\3061\310\307\310 P\"\210\311\225\312\211\211\211\211\307 #\205\303\311\225\262\313O\311\211#\262\313O\314\211#\262\203I\315!\262\f\203R\316!\262\307\317 \320Q\"\203e\321\316!!\210\202\264\307\317\320Q\"\203y\322\316!!\210\202\264\307\317\320Q\"\203\215\323\316!!\210\202\264\203\246\307\317\320Q\"\203\246\323\316!!\210\202\264\f\203\264\324!\203\264\323!\210\307 #\210\311\225\262\202)\266\2060\207\210\312\207" [shell-dirtrackp shell-command-separator-regexp case-fold-search shell-command-regexp shell-has-auto-cd shell-popd-regexp (error) string-match "^" 0 nil comint-arguments 1 shell-unquote-argument comint-substitute-in-file-name "\\`\\(" "\\)\\($\\|[ ]\\)" shell-process-popd shell-process-pushd shell-process-cd file-directory-p shell-pushd-regexp shell-cd-regexp shell-chdrive-regexp] 11 (#$ . 26942)]) #@61 Remove all kinds of shell quoting from STRING. (fn STRING) (defalias 'shell-unquote-argument #[257 "\301 \302\303\"\216\304\211\305\306\307\310p!!@!\"\203\311\202\312\313GW\203~\305#\211\262\203~H\314U\203G\315\316\304\211$\262T\262\202\203bHU\203b\315\316\304\211$\262\304\262\202\203mT\262\202H\262\315\316\304\211$\262\202\266\203)\207" [shell-dumb-shell-regexp match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] nil string-match file-name-nondirectory process-command get-buffer-process "['`\"]" "[\\'`\"]" 0 92 replace-match ""] 10 (#$ . 28678)]) #@12 (fn ARG) (defalias 'shell-process-popd #[257 "\301!\206\302\211\203\"\211\302U\203\"\203\"\303\304@!!\210A\305 \207\211\203F\211\302V\203F\211GX\203F\306BS\233\211AA\241\210A\305 \207\307\310!\207" [shell-dirstack shell-extract-num 0 shell-cd shell-prefixed-directory-name shell-dirstack-message nil error "Couldn't popd"] 6 (#$ . 29319)]) #@12 (fn DIR) (defalias 'shell-prefixed-directory-name #[257 "G\301U\203\207\302!\203\303!P\207\304!\207" [comint-file-name-prefix 0 file-name-absolute-p file-local-name expand-file-name] 4 (#$ . 29687)]) #@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 (#$ . 29904)]) #@12 (fn ARG) (defalias 'shell-process-pushd #[257 "\306!G\307U\203*\203\310 \311P!\207\n\203& \312\n@!\210\211\nAB\313 \207\314\315!\207\211\247\203{\211\nGV\203:\314\316!\207\211\307U\203D\317\320!\207\f\203[\211S\n8\321!\210\310 !\210\312!\210\313 \207 \nB\211G\233\322Z\322!\233!\323\"\312@!\210\211A\313 \207 \312\324!!\210 \203\214\211\n\235\204\220\211\nB\313 \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 (#$ . 30187)]) #@12 (fn STR) (defalias 'shell-extract-num #[257 "\300\301\"\205\n\302!\207" [string-match "^\\+[1-9][0-9]*$" string-to-number] 4 (#$ . 30952)]) #@107 Non-nil if Shell-Dirtrack mode is enabled. Use the command `shell-dirtrack-mode' to change this variable. (defvar shell-dirtrack-mode nil (#$ . 31104)) (make-variable-buffer-local 'shell-dirtrack-mode) #@748 Toggle directory tracking in this shell buffer (Shell Dirtrack mode). This is a minor mode. If called interactively, toggle the `Shell-Dirtrack mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `shell-dirtrack-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. The `dirtrack' package provides an alternative implementation of this feature; see the function `dirtrack-mode'. (fn &optional ARG) (defalias 'shell-dirtrack-mode #[256 "\304 \305=\203 ?\202\247\203\306W\203\307\202\310\311\301!\2031\312\300 \"\2031\300 B\2056\n\203E\313\314\315\307\310$\210\202K\316\314\315\310#\210\317\320\203U\321\202V\322\"\210\323\324!\203x\304 \203j\211\304 \232\203x\325\326\203t\327\202u\330\331#\210\210\332 \210\207" [shell-dirtrack-mode local-minor-modes default-directory list-buffers-directory current-message toggle 1 nil t boundp delq add-hook comint-input-filter-functions shell-directory-tracker 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%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 31313) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar shell-dirtrack-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\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.)" custom-type hook standard-value nil add-minor-mode shell-dirtrack-mode boundp] 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 (#$ . 33459)]) #@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\205\330\331#\210\n\326\224\326\225OPB\262\312\225\262\202f\237\3321\236\333@!\210\211A\211@\334 0\266\202\244\335\336\"\266)\211\205\255\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 *" (debug error) shell-cd shell-dirstack-message message "Couldn't cd: %s"] 13 (#$ . 33668) 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]) #@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 (#$ . 35501)]) #@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 (#$ . 35980) (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 (#$ . 36543) "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\"\207" [shell-command-regexp comint-bol nil line-beginning-position skip-syntax-backward " " re-search-backward format "[;&|]+[ ]*\\(%s\\)" move 1 ";&|" skip-syntax-forward] 8 (#$ . 36891) "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@A@\3058#\207" [shell-command-completion window-minibuffer-p message "Completing command name..." completion-in-region 2] 6 (#$ . 37384) nil]) #@62 Return the completion data for the command at point, if any. (defalias 'shell-command-completion #[0 "\300 \211\205'\301 \302\303\"\216\304\305\")?\262\205'\306\224\212\307\310!\210`)=\205'\311 \207" [comint-match-partial-filename match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "[~/]" 0 shell-backward-command 1 shell--command-completion-data] 5 (#$ . 38095)]) #@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\202lA\262\202L\n\n\333\334\"\335\336\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-closure #[771 "\301\302\"\203 \303#\207\304\300\242$\207" [V0 string-search "/" 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)"]] 17 (#$ . 38516)]) #@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 (#$ . 39865) 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 (#$ . 40152)]) #@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 (#$ . 40482)]) #@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@A@\3058#\207" [shell-environment-variable-completion window-minibuffer-p message "Completing variable name..." completion-in-region 2] 6 (#$ . 40841) nil]) #@63 Completion data for an environment variable at point, if any. (defalias 'shell-environment-variable-completion #[0 "\301 \302\225G\302U?\205I\302H\303=\205I\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\"\257\266\203\207" [process-environment shell-match-partial-variable 0 36 looking-at "\\$?[({]*" mapcar #[257 "\211\300\301\302\"O\207" [0 string-search "="] 6 "\n\n(fn X)"] #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (123 49 40 53)) "}" ")" "" :exit-function make-closure #[514 "\211\301>\205%\300\302\303\304!!!\205\305P\306\307!!\203!\310\225b\202#\211c\262\207" [V0 (sole finished) file-directory-p comint-directory getenv "/" looking-at regexp-quote 0] 7 "\n\n(fn S FINISHED)"]] 12 (#$ . 41793)]) #@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 \205E\212\303\224b\210 B\304\305!\203 G\202%\304\306!\205%\307\310\224\310\225{!\211\205B\303\224\303\225\3118!\312\313&\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-closure #[0 "\301\300GY\203 \305\306!\207\212\302b\210\304c\210\307\303\302Z!\210)\310\311\301\"\210\312\207" [V0 V1 V2 V3 V4 error "Directory stack not that deep" delete-char message "Directory item: %d" t] 3]] 12 (#$ . 42637)]) #@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 (#$ . 43341) nil]) (defalias 'shell--prompt-begin-position #[0 "\212`\212\301\302!\210\303!\210`)\212\303!\210`)]\212\301\304!\210\303!\210`X\203(`\202)e)]\262)\207" [comint-prompt-regexp call-interactively comint-previous-prompt re-search-backward comint-next-prompt] 4]) (defalias 'shell--prompt-end-position #[0 "\212\300 b\210\301\302!\210`)\207" [shell--prompt-begin-position comint-next-prompt 1] 2]) #@80 Narrow buffer to the command line (and any following command output) at point. (defalias 'shell-narrow-to-prompt #[0 "\300 \211\212\301 b\210\302\303!\210\300 U\203d\202\300 )}\207" [shell--prompt-begin-position shell--prompt-end-position call-interactively comint-next-prompt] 4 (#$ . 44065) nil]) (provide 'shell)