;ELC ;;; Compiled ;;; in Emacs version 30.2 ;;; with all optimizations. #@281 Regexp to match shells that don't save their command history, and don't handle the backslash as a quote character. For shells that match this regexp, Emacs will write out the command history when the shell finishes, and won't remove backslashes when it unquotes shell arguments.#@2 #@548 Regexp to match prompts in the inferior shell. Defaults to "^[^#$%>\n]*[#$%>] *", which works pretty well. This variable is used to initialize `comint-prompt-regexp' in the shell buffer. If `comint-use-prompt-regexp' is nil, then this variable is only used to determine paragraph boundaries. See Info node `Shell Prompts' for how Shell mode treats paragraphs. The pattern should probably not match more than one line. If it does, Shell mode may become confused trying to distinguish prompt from input on lines which don't start with a prompt.#@242 List of suffixes to be disregarded during file/command completion. This variable is used to initialize `comint-completion-fignore' in the shell buffer. The default is nil, for compatibility with most shells. Some people like ("~" "#" "%").#@202 List of characters to recognize as separate arguments. This variable is used to initialize `comint-delimiter-argument-list' in the shell buffer. The value may depend on the operating system or shell.#@182 String of characters valid in a file name. This variable is used to initialize `comint-file-name-chars' in the shell buffer. The value may depend on the operating system or shell.#@193 List of characters to quote when in a file name. This variable is used to initialize `comint-file-name-quote-list' in the shell buffer. The value may depend on the operating system or shell.#@142 List of functions called to perform completion. This variable is used to initialize `comint-dynamic-complete-functions' in the shell buffer.#@120 Regexp to match a single command within a pipeline. This is used for directory tracking and does not do a perfect job.#@186 If non-nil, use executable files only for completion candidates. This mirrors the optional behavior of tcsh. Detecting executability of files may slow command completion considerably.#@55 Regexp to match subshell commands equivalent to popd.#@56 Regexp to match subshell commands equivalent to pushd.#@111 If non-nil, make pushd with no arg behave as "pushd ~" (like cd). This mirrors the optional behavior of tcsh.#@107 If non-nil, make "pushd +n" pop the nth dir to the stack top. This mirrors the optional behavior of tcsh.#@110 If non-nil, make pushd only add unique directories to the stack. This mirrors the optional behavior of tcsh.#@53 Regexp to match subshell commands equivalent to cd.#@52 If non-nil, is regexp used to track drive changes.#@237 If non-nil, show the directory stack following directory change. This is effective only if directory tracking is enabled. The `dirtrack' package provides an alternative implementation of this feature - see the function `dirtrack-mode'.#@223 If non-nil, the file name to use for explicitly requested inferior shells. When nil, such interactive shell sessions fall back to using the shell specified in either the environment variable "ESHELL" or `shell-file-name'.#@111 Args passed to inferior shell by \[shell], if the shell is csh. Value is a list of strings, which may be nil.#@112 Args passed to inferior shell by \[shell], if the shell is bash. Value is a list of strings, which may be nil. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\310\312&\210\304\313\306\314\310\305%\210\315\316\317\320\321DD\322\323\324\310\305&\210\315\325\317\320\326DD\327\323\324\310\305&\210\315\330\317\320\331DD\332\323\333\310\305&\210\315\334\317\320\335DD\336\323\337\310\305&\210\315\340\317\320\341DD\342\323\343\310\305&\210\315\344\317\320\345DD\346\323\347\310\305&\210\315\350\317\320\351DD\352\323\353\310\305&\210\315\354\317\320\355DD\356\323\324\310\305&\210\315\357\317\320\360DD\361\323\324\310\305&\210\315\362\317\320\363DD\364\323\365\310\305&\210\315\366\317\320\367DD\370\323\324\310\313&\210\315\371\317\320\372DD\373\323\324\310\313&\210\315\374\317\320\375DD\376\323\365\310\313&\210\315\377\317\320\201@DD\201A\323\365\310\313&\210\315\201B\317\320\201CDD\201D\323\365\310\313&\210\315\201E\317\320\201FDD\201G\323\324\310\313&\210\315\201H\317\320\201IDD\201J\323\201K\310\313&\210\315\201L\317\320\201MDD\201N\323\365\310\313&\210\315\201O\317\320\201PDD\201Q\323\201R\310\305&\210\315\201S\317\320\201TDD\201U\323\201V\310\305&\207" [require comint pcomplete subr-x 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 (#$ . 368)] (#$ . 84) :type regexp shell-prompt-pattern #[0 "\300\207" ["^[^#$%>\n]*[#$%>] *"] 1 (#$ . 368)] (#$ . 375) shell-completion-fignore #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 928) (repeat (string :tag "Suffix")) shell-delimiter-argument-list #[0 "\300\207" [(124 38 60 62 40 41 59)] 1 (#$ . 368)] (#$ . 1175) (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 (#$ . 368)] (#$ . 1382) 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 (#$ . 368)] (#$ . 1569) (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 (#$ . 368)] (#$ . 1767) (repeat function) shell-command-regexp #[0 "\300\207" ["[^;&|\n]+"] 1 (#$ . 368)] (#$ . 1914) shell-command-separator-regexp #[0 "\300\207" ["[;&|\n ]*"] 1 (#$ . 368)] (#$ . 1914) shell-completion-execonly #[0 "\300\207" [t] 1 (#$ . 368)] (#$ . 2039) boolean shell-popd-regexp #[0 "\300\207" ["popd"] 1 (#$ . 368)] (#$ . 2229) shell-pushd-regexp #[0 "\300\207" ["pushd"] 1 (#$ . 368)] (#$ . 2288) shell-pushd-tohome #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 2349) shell-pushd-dextract #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 2465) shell-pushd-dunique #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 2577) shell-cd-regexp #[0 "\300\207" ["cd"] 1 (#$ . 368)] (#$ . 2691) shell-chdrive-regexp #[0 "\301>\205\302\207" [system-type (ms-dos windows-nt) "[]a-zA-Z^_`[\\]:"] 2 (#$ . 368)] (#$ . 2748) (choice regexp (const nil)) shell-dirtrack-verbose #[0 "\300\207" [t] 1 (#$ . 368)] (#$ . 2805) explicit-shell-file-name #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 3047) (choice (const :tag "Default" nil) file) explicit-csh-args #[0 "\301=\203\302\207\303\207" [system-type hpux ("-i" "-T") ("-i")] 2 (#$ . 368)] (#$ . 3275) (repeat (string :tag "Argument"))] 8)#@461 If non-nil, expand input command history references on completion. This mirrors the optional behavior of tcsh (its autoexpand and histlit). If the value is `input', then the expansion is seen on input. If the value is `history', then the expansion is only when inserting into the buffer's input ring. See also `comint-magic-space' and `comint-dynamic-complete-functions'. This variable supplies a default for `comint-input-autoexpand', for Shell mode only.#@185 Enable fontification of input in shell buffers. This variable only has effect when the shell is started. Use the command `comint-fontify-input-mode' to toggle fontification of input.#@463 Hook run in an indirect buffer for input fontification. Input fontification and indentation of a `shell-mode' buffer, if enabled, is performed in an indirect buffer, whose indentation and syntax highlighting is set up with `sh-mode'. In addition to `comint-indirect-setup-hook', run this hook with the indirect buffer as the current buffer after its setup is done. This can be used to further customize fontification and other behavior of the indirect buffer.#@210 Enable highlighting of undefined commands in shell buffers. This variable only has effect when the shell is started. Use the command `shell-highlight-undef-mode' to toggle highlighting of undefined commands.#@119 List of directories saved by pushd in this buffer's shell. Thus, this does not include the shell's current directory. (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\321\310\311\322\323\324\325& \210\300\326\302\303\327DD\330\306\331\310\311\324\325& \210\300\332\302\303\333DD\334\306\321\310\311\322\323\324\325& \207" [custom-declare-variable explicit-bash-args funcall function #[0 "\300\207" [("--noediting" "-i")] 1 (#$ . 368)] (#$ . 3391) :type (repeat (string :tag "Argument")) :group shell shell-input-autoexpand #[0 "\300\207" [history] 1 (#$ . 368)] (#$ . 7185) (choice (const :tag "off" nil) (const input) (const history) (const :tag "on" t)) shell-fontify-input-enable #[0 "\300\207" [t] 1 (#$ . 368)] (#$ . 7651) boolean :safe booleanp :version "29.1" shell-indirect-setup-hook #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 7841) hook shell-highlight-undef-enable #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 8309)] 12) (defvar shell-dirstack nil (#$ . 8524))#@164 Non-nil in a shell buffer means directory tracking is enabled. Directory tracking (`shell-dirtrack-mode') is automatically enabled when `shell-mode' is activated.#@54 Keep track of last directory for ksh `cd -' command. (defvaralias 'shell-dirtrackp 'shell-dirtrack-mode '(#$ . 9586)) (defvar shell-last-dir nil (#$ . 9754))#@57 Command used by `shell-resync-dirs' to query the shell. (defvar shell-dirstack-query nil (#$ . 9917))#@258 If non-nil, `shell-mode' handles implicit "cd" commands. Implicit "cd" is changing the directory if the command is a directory. You can make this variable buffer-local to change it, per shell-mode instance. Useful for shells like zsh that has this feature.#@51 Whether `shell-get-old-input' includes "\" lines.#@57 Kill a shell buffer after the shell process terminates. (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\317\312\320& \210\300\321\302\303\322DD\323\306\307\310\317\312\324& \207" [custom-declare-variable shell-has-auto-cd funcall function #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 10025) :type boolean :group shell-directories :version "28.1" shell-get-old-input-include-continuation-lines #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 10287) shell "30.1" shell-kill-buffer-on-exit #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 10342) "29.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))#@63 Keymap to repeat shell key sequences. Used in `repeat-mode'. (defvar shell-repeat-map (define-keymap "C-f" 'shell-forward-command "C-b" 'shell-backward-command) (#$ . 11792))#@34 Hook for customizing Shell mode.#@52 Additional expressions to highlight in Shell mode. (byte-code "\300\301\302\303#\210\300\304\302\303#\210\305\306\307\310\311DD\312\313\314\315\316&\207" [put shell-forward-command repeat-map shell-repeat-map shell-backward-command custom-declare-variable shell-mode-hook funcall function #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 11973) :type hook :group shell] 8) (defvar shell-font-lock-keywords '(("[ ]\\([+-][^ \n]+\\)" 1 font-lock-comment-face) ("^[^ \n]+:.*" . font-lock-string-face) ("^\\[[1-9][0-9]*\\]" . font-lock-string-face)) (#$ . 12011))#@37 Shell file name started in `shell'. (defvar shell--start-prog nil (#$ . 12572))#@546 The history file name used in `shell-mode'. When it is a string, this file name will be used. When it is nil, the environment variable HISTFILE is used. When it is t, no history file name is used in `shell-mode'. The settings obey whether `shell-mode' is invoked in a remote buffer. In that case, HISTFILE is taken from the remote host, and the string is interpreted as local file name on the remote host. If `shell-mode' is invoked in a local buffer, and no history file name can be determined, a default according to the shell type is used.#@28 (fn QSTR &optional UPOS)#@33 (fn UPOS USTRS QUPOS STR END) (byte-code "\300\301!\210\302\301\303\304#\210\305\306\307\310\311DD\312\313\314\315\316&\210\302\306\303\304#\207" [make-variable-buffer-local shell--start-prog put permanent-local t custom-declare-variable shell-history-file-name funcall function #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 12658) :type (choice (const :tag "Default" nil) (const :tag "Suppress" t) file) :version "30.1"] 8) (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\333  O%\210\312\224\203U\313\312\"\302\225%\210\202\324\314\224\203o\315\313\314\"!\302\225[%\210\202\324 H\316=\203?\262\202\324 H\317=\203\320\203\232\320\302\225%\210\202\324\211T\nGW\203\324\311\320 T#\211\204\272\210 G\321\fGD!\210 TO%\266\202\324\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 (#$ . 13240)] 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 (#$ . 13208)])#@12 (fn STR) (defalias 'shell--unquote-argument #[257 "\300!@\207" [shell--unquote&requote-argument] 3 (#$ . 14750)])#@18 (fn UPOS QSTR) (defalias 'shell--requote-argument #[514 "\300\"\211A@\3018B\207" [shell--unquote&requote-argument 2] 6 (#$ . 14872)])#@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 (#$ . 15016)])#@599 Default for `comint-get-old-input' in `shell-mode'. If `comint-use-prompt-regexp' is nil, then either return the current input field (if point is on an input field), or the current line (if point is on an output field). If `comint-use-prompt-regexp' is non-nil, then return the current line, with any initial string matching the regexp `comint-prompt-regexp' removed. In either case, if `shell-get-old-input-include-continuation-lines' is non-nil and the current line ends with a backslash, the next line is also included and examined for a backslash, ending with a final line without a backslash. (defalias 'shell-get-old-input #[0 "\302\211\204\303\304 \211\262\305\"\211\262\204\306!\207\307 \210`\204&\310=\203B\311 b\210 \203Fm\204F`Sf\312U\203F\311\313!b\210\202.\314 b\210\315`\"\207" [comint-use-prompt-regexp shell-get-old-input-include-continuation-lines nil get-char-property field-beginning field field-string-no-properties comint-bol output line-end-position 92 2 field-end buffer-substring-no-properties] 6 (#$ . 15815)])#@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 (#$ . 16874)])#@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 (#$ . 17370)])#@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\311 !?\306\331!\210#\332\333\334\335\336$\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 pcomplete-remote-file-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 (#$ . 17909)]) (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))#@3188 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. By default, shell mode does nothing special when it receives a "bell" character (C-g or ^G). If you (add-hook \='comint-output-filter-functions #\='shell-filter-ring-bell nil t) from `shell-mode-hook', Emacs will call the `ding' function whenever it receives the bell character in output from a command. (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\320\321!\203t\321\311\322\"\210\202z\303\311\323\322#\210\313\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 defvar-1 nil make-syntax-table "Syntax table for `shell-mode'." define-abbrev-table "Abbrev table for `shell-mode'." fboundp derived-mode-set-parent comint-mode derived-mode-parent] 5) (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\"\306\344!\210\345$\346\347!\210\306\350!\210\351(\352 \210\353\354\355\356\307$\210C\357\360\"\262D\306\361!\210\3621\306\363!\210\3643\365E!F\366G!\203=\367E!C\206\332\370H;\203\345H\202\370H?\205\370\203\365\371\372!\202\370\373\374!\340\370\230\203\340\262\2043\2043\375\230\203\376\2021\377\230\203 \201Q\2021\201R\230\203.\201S\2021\201T\262;\203t\203F\371\201U!\262\202M\373\201V!\262\211;\203o\201W!\211\262\250\203o\211\201XV\203o\306\201I!\210\211IPJJ\203\223J\370\232\204\220\201YJ!\201YK!\232\203\223\340JJ\203\257\201ZL\"\203\257\201[\201\\p!\201]\"\210\201^\230\203\275\201_\202\377\230\203\311\201`\202\375\230\203\325\201a\202\201b\230\203\376M\201c=\203\376\201d\201e\201b!!\201f=\203\376\201g\202\201R\230\203\f\201h\202\201iN\375\230\203\"\353\201j\201k\340\307$\210\201R\230\2035\306\201O!\210\201lO\266\201m\307!\210)\201nPBP\201o\201p!\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 comint-get-old-input shell-get-old-input scroll-conservatively 101 shell-dirtrack-mode 1 ansi-color-apply-face-function shell-apply-ansi-color shell-reapply-ansi-color add-hook comint-indirect-setup-hook shell-indirect-setup-hook append make-closure #[0 "\304\305!\210\300\206 \306\301!\307\310\311\312\"\216\313\301\"\210\314 +\207" [V0 sh-shell-file message-log-max inhibit-message require sh-script default-value nil t make-closure #[0 "\301\302\300\"\207" [V0 set-default sh-shell-file] 3] set-default sh-mode] 5] indent-line-function comint-indent-input-line-default indent-region-function comint-indent-input-region-default expand-file-name ring-empty-p file-remote-p "" shell-command-to-string "echo -n $HISTFILE" getenv "HISTFILE" "bash" "~/.bash_history" "ksh" local-abbrev-table shell-prompt-pattern comint-prompt-regexp shell--start-prog comint-indirect-setup-function default-directory list-buffers-directory comint-input-ring shell-history-file-name comint-input-ring-size comint-input-ring-file-name null-device shell-dumb-shell-regexp system-type shell-dirstack-query comint-input-ring-file-prefix delayed-after-hook-functions "~/.sh_history" "zsh" "~/.zsh_history" "~/.history" "echo -n $HISTSIZE" "HISTSIZE" string-to-number 0 file-truename string-match set-process-sentinel get-buffer-process shell-write-history-on-exit "sh" "pwd" "echo $PWD ~-" "command dirs" "bash.exe" windows-nt w32-application-type executable-find msys "command pwd -W" "dirs -l" "dirs" comint-preoutput-filter-functions shell-filter-ctrl-a-ctrl-b ": [[:digit:]]+:[[:digit:]]+;" comint-read-input-ring #[0 "?\205 \203\f\303 \210\n\205\304 \207" [comint-use-prompt-regexp shell-fontify-input-enable shell-highlight-undef-enable comint-fontify-input-mode shell-highlight-undef-mode] 1] run-mode-hooks shell-mode-hook] 9 (#$ . 19711)])#@34 Run `shell-indirect-setup-hook'. (defalias 'shell-indirect-setup-hook #[0 "\300\301!\207" [run-hooks shell-indirect-setup-hook] 2 (#$ . 27363)])#@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 (#$ . 27513)])#@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 )\207" [next-single-property-change ansi-color-face nil get-text-property put-text-property font-lock-face] 8 (#$ . 27758)])#@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 (#$ . 28113)])#@125 Call `ding' if STRING contains a "^G" character. This function can be put on `comint-output-filter-functions'. (fn STRING) (defalias 'shell-filter-ring-bell #[257 "\300\301\"\203\n\302 \210\207" [string-search "" ding] 4 (#$ . 28763)])#@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 (#$ . 29009)]) (defvar shell-command-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-command-mode-hook variable-documentation put "Hook run after entering `shell-command-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-command-mode-map definition-name shell-command-mode] 4) (defvar shell-command-mode-map (make-sparse-keymap))#@266 Major mode for the output of asynchronous `shell-command'. In addition to any hooks its parent mode `comint-mode' might have run, this mode runs the hook `shell-command-mode-hook', as the final or penultimate step during initialization. \{shell-command-mode-map} (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\320\321!\203t\321\311\322\"\210\202z\303\311\323\322#\210\313\207" [shell-command-mode-abbrev-table shell-command-mode-map variable-documentation put purecopy "Keymap for `shell-command-mode'." boundp shell-command-mode-syntax-table definition-name shell-command-mode defvar-1 nil make-syntax-table "Syntax table for `shell-command-mode'." define-abbrev-table "Abbrev table for `shell-command-mode'." fboundp derived-mode-set-parent comint-mode derived-mode-parent] 5) (defalias 'shell-command-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  \306\331!\210\332\306\333!\210\334\335!!\")\336\337!\207" [delay-mode-hooks major-mode mode-name shell-command-mode-map shell-command-mode-syntax-table shell-command-mode-abbrev-table make-local-variable t comint-mode shell-command-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 font-lock-defaults (shell-font-lock-keywords t) ansi-color-apply-face-function shell-apply-ansi-color expand-file-name run-mode-hooks shell-command-mode-hook local-abbrev-table default-directory list-buffers-directory] 5 (#$ . 30047) nil])#@1773 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'. Non-interactively, it can also be specified via the FILE-NAME arg. 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 FILE-NAME)#@19 (fn PROC EVENT) (defalias 'shell #[512 "C\211\242\204\302\303!\203\304p!\203\305\242\206\306!\202 p\240\210\307\242\"\210\310\311\312#!\210 \203Fp\313!\314!\315\311\316#\"\266\242\207" [display-comint-buffer-action shell-kill-buffer-on-exit derived-mode-p shell-mode comint-check-proc get-buffer-create "*shell*" pop-to-buffer with-connection-local-variables-1 make-closure #[0 "\300\203\n\305\302!\210\300\306\301\242!?\205\216\n\206\307\310!\206 \311!\312P\313\314\315Q!`\316!\2048\317\320\321Q!\262\305\304!\210\311!\322\323\324\301\242\325\203Z\326!\203ZJ\202[\327&\210\330 \210\316!\205\214\211`U\203t\331\332!\210\202g\333\334\335\336\"r\211q\210\337\340\"\216\341!\210\342 *\262!\266\205\207" [V0 V1 explicit-shell-file-name shell-file-name shell--start-prog make-local-variable comint-check-proc getenv "ESHELL" file-name-nondirectory "~/.emacs_" intern-soft "explicit-" "-args" file-exists-p locate-user-emacs-file "init_" ".sh" apply make-comint-in-buffer "shell" nil boundp ("-i") shell-mode sleep-for 0.1 shell-eval-command generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents buffer-string] 13] get-buffer-process process-sentinel set-process-sentinel #[514 "\300\203 \300\"\210\302!?\205\303\301!\207" [V0 V1 buffer-live-p kill-buffer] 5 (#$ . 33845)]] 12 (#$ . 32068) (byte-code "\205\303\304 \305=\203\306p!\204\307 \202\310\311!\"\211\204+\312\305!\203+\313p!\2035\314\2061\311!\2026pr\211q\210\203N\315\n!\203N\316\317\320\n\211\321\322%!\323\324!)D\207" [current-prefix-arg major-mode default-directory read-buffer "Shell buffer: " shell-mode get-buffer-process buffer-name generate-new-buffer-name "*shell*" derived-mode-p comint-check-proc get-buffer-create file-remote-p expand-file-name read-directory-name "Default directory: " t nil with-connection-local-variables-1 #[0 "\303!\205# ?\205#\304\305!?\205#\306\307\310\311\312\313\314\n\315\n\303&!!#\207" [default-directory explicit-shell-file-name shell-file-name file-remote-p getenv "ESHELL" replace-regexp-in-string "^[[:alpha:]]:" "" file-local-name expand-file-name read-file-name "Remote shell path: " t] 12]] 9)])#@107 Non-nil if Shell-Dirtrack mode is enabled. Use the command `shell-dirtrack-mode' to change this variable. (defvar shell-dirtrack-mode nil (#$ . 36120))#@906 Toggle directory tracking in this shell buffer (Shell Dirtrack mode). This assigns a buffer-local non-nil value to `shell-dirtrackp'. The `dirtrack' package provides an alternative implementation of this feature; see the function `dirtrack-mode'. Also see `comint-osc-directory-tracker' for an escape-sequence based solution. 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 the variable `shell-dirtrack-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (make-variable-buffer-local 'shell-dirtrack-mode) (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!\203y\304 \203j\211\304 \232\203y\325\326\327\203u\330\202v\331\332$\210\210\333 \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 "%s %sabled%s" "Shell-Dirtrack mode" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 36278) [(byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2) (shell-mode)]]) (defvar shell-dirtrack-mode-hook nil)#@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) (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) (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-dirtrack-mode 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 (#$ . 38171)])#@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\312G\313V\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)\207" [shell-dumb-shell-regexp match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] nil string-match file-name-nondirectory process-command get-buffer-process "['`\"]" "[\\'`\"]" 0 92 replace-match ""] 10 (#$ . 40391)])#@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 (#$ . 41015)])#@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 (#$ . 41382)]) (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 (#$ . 41015)]) (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 (#$ . 41015)]) (defalias 'shell-extract-num #[257 "\300\301\"\205\n\302!\207" [string-match "^\\+[1-9][0-9]*$" string-to-number] 4 (#$ . 14750)])#@68 Do normal `cd' to DIR, and set `list-buffers-directory'. (fn DIR) (defalias 'shell-cd #[257 "\303!\210\205 \211\207" [shell-dirtrack-mode default-directory list-buffers-directory cd] 3 (#$ . 42746)])#@230 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. (defalias 'shell-resync-dirs #[0 "\304\305\306\307\310P!!!!@\311\312\311\313\314\"\262\315\316#\203,\317\320\"B\262\320\225\262\202\203r\321\311\211\203m\203m\211A\262\242\262 Q\262\322!\203e\211B\262@\323\230\203_A\262\311\262\2023P\262\2023\266\202,\3241\205\325@!\210\211A\211@\326 0\207\327\330\"\311\207" [shell-dirstack-query comint-file-name-prefix shell-dirstack shell-last-dir last string-lines string-chop-newline shell-eval-command "\n" nil 0 string-trim-right "[ ]+" string-match "\\(\\S-+\\|\\s-+\\)" match-string 1 "" file-directory-p " " (debug error) shell-cd shell-dirstack-message message "Couldn't cd: %s"] 11 (#$ . 42958) nil]) (defalias 'dirs 'shell-resync-dirs) (defalias 'shell-dirstack-message #[0 "\205d\304 \nB\305 \306P!\211G\203^@\211GY\203-\307O\230\203-\306\310OP\262 \203N\211G GY\203N \307 GO\230\203N\211 G\310O\262\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 (#$ . 44327)])#@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 (#$ . 44805) (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 (#$ . 45367) "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 (#$ . 45714) "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 (#$ . 46206) 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 t] 3] string-match "[~/]" 0 shell-backward-command 1 shell--command-completion-data] 5 (#$ . 46916)])#@54 Return the completion data for the command at point.#@10 (fn X)#@27 (fn STRING PRED ACTION)#@24 (fn STRING FINISHED) (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\303\316\324 @\206Z\325!!\262\326!\205t\3271r\330 \"0\202t\210\323\262\203\273@\262P\262\242\235\204\264\203\226\331\"\204\264\230\204\243\332!\204\264 \203\255\333!\203\264\211\242B\240\210A\262\202vA\262\202L\n\n\334\335\"\336\337\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 (#$ . 47386)] "\\|" nil comint-directory "." file-accessible-directory-p (permission-denied) 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 (#$ . 47400)] :exit-function #[514 "\211\300>\205\301\302!\203\303\225b\207\302c\207" [(sole finished) looking-at " " 0] 4 (#$ . 47431)]] 17 (#$ . 47328)])#@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 (#$ . 48760) 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 (#$ . 49046)])#@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 (#$ . 49375)])#@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 (#$ . 49733) nil])#@63 Completion data for an environment variable at point, if any.#@19 (fn S FINISHED) (defalias 'shell-environment-variable-completion #[0 "\301 \302\225G\302U?\205J\302H\303=\205J\212\302\224b\210\304\305!\210\302\225)\306\307\"\206)`Sf\211\310\267\210\202<\210\311\202=\210\312\202=\313\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 (#$ . 47386)] #s(hash-table test eq purecopy t data (123 50 40 55)) "}" ")" "" :exit-function make-closure #[514 "\211\301>\205#\300\302\303\304!!!\205\305P\306\307!!\203\310\225b\207\211c\262\207" [V0 (sole finished) file-directory-p comint-directory getenv "/" looking-at regexp-quote 0] 7 (#$ . 50751)]] 12 (#$ . 50684)])#@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 \205C\212\303\224b\210 B\304\305!\203 G\202%\304\306!\205%\307\310\224\310\225{!\211\205@\303\224\303\225\3118!\312\313\n&\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 "\303\304GY\203 \305\306!\207\212\302b\210\300c\210\307\301\302Z!)\210\310\311\303\"\312\207" [V0 V1 V2 V3 V4 error "Directory stack not that deep" delete-char message "Directory item: %d" t] 4]] 12 (#$ . 51499)])#@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 (#$ . 52197) 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)])\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 (#$ . 52915) nil])#@80 Eval COMMAND in the current shell process and return the result. (fn COMMAND)#@20 (fn PROC STRING) (defalias 'shell-eval-command #[257 "\300p!\301!\302C\303\304\305#\216\306\304\307\"\"\210\310\"\210\311\242\303\312#\313!@\211\302\232\2032\211\2026\211\314\303O\315\316\"\205Z\317\235?\205Z\211\320\232?\205Z\203V\232?\205Z\211\262\266\203\204h\321\316\322#\210\202)\323\324\320\242#\207" [get-buffer-process process-filter #1="" nil make-closure #[0 "\302\301\300\"\207" [V0 V1 set-process-filter] 3] set-process-filter #[514 "\300\211\242P\240\207" [V0] 5 (#$ . 53308)] process-send-string string-lines t last -1 length> 0 (#1# "\n") "\n" accept-process-output 100 replace-regexp-in-string "\n.*\\'"] 11 (#$ . 53224)])#@57 List of shell commands to highlight as a command alias.#@40 Face used for existing shell commands. (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable shell-highlight-undef-aliases funcall function #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 53985) :group shell :type (repeat string) :version "29.1"] 10) (custom-declare-face 'shell-highlight-undef-defined-face '((t :inherit 'font-lock-function-name-face)) '(#$ . 54046) :group 'shell :version "29.1")#@44 Face used for non-existent shell commands. (custom-declare-face 'shell-highlight-undef-undefined-face '((t :inherit 'font-lock-warning-face)) '(#$ . 54484) :group 'shell :version "29.1")#@38 Face used for shell command aliases. (custom-declare-face 'shell-highlight-undef-alias-face '((t :inherit 'font-lock-variable-name-face)) '(#$ . 54676) :group 'shell :version "29.1")#@358 Whether to inhibit cache for fontifying shell commands in remote buffers. When fontification of non-existent commands is enabled in a remote shell buffer, use a cache to speed up searching for executable files on the remote machine. This option controls expiry of the cache. See `remote-file-name-inhibit-cache' for a description of the possible options.#@401 Cache of executable files found in `exec-path'. An alist, whose elements are of the form (REMOTE TIME EXECUTABLES), where REMOTE is a string, returned by `file-remote-p', TIME is the return value of `float-time', and EXECUTABLES is a hash table with keys being the base-names of executable files. Cache expiry is controlled by the user option `shell-highlight-undef-remote-file-name-inhibit-cache'. (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable shell-highlight-undef-remote-file-name-inhibit-cache funcall function #[0 "\300\207" [nil] 1 (#$ . 368)] (#$ . 54865) :group faces :type (choice (const :tag "Do not cache remote executables" t) (const :tag "Cache remote executables" nil) (integer :tag "Cache remote executables with expiration" :format "Cache expiry in seconds: %v" :value 10)) :version "29.1"] 10) (defvar shell--highlight-undef-exec-cache nil (#$ . 55228)) (defvar shell--highlight-undef-face 'shell-highlight-undef-defined-face) (defvar shell-highlight-undef-keywords (byte-code "\300\301BC\207" [shell-highlight-undef-matcher (6 shell--highlight-undef-face)] 2)) (defvar shell-highlight-undef-regexp regexp-unmatchable)#@157 Return non-nil if COMMAND is found in `exec-path'. Similar to `executable-find', but use cache stored in `shell--highlight-undef-exec-cache'. (fn COMMAND)#@18 (fn REMOTE AS) (make-variable-buffer-local 'shell-highlight-undef-regexp) (defalias 'shell--highlight-undef-executable-find #[257 "\303!\304C\304\211\211\204\305!\207\210 \306\307\n\"\240\211:\203\215\211\243\211:\203\202\211\242\243\211:\203w\211\242\243\211\204j\247\203H\310  \\X\202X\311\267\202W\266\202\225\202[\304\203r\312 \"\262\n\313\262 \266\202\225\f\f\"\210\266\202\225\n\n\"\266\202\225\"\266\202\225\"\266\203\233\207\242A\310 \240\210\314\242AA@!\315 \211\203\351\211@\3161\303\317P\304\211\320\321%0\202\305\210\304\211\203\343\211@\211\242\243\211@\313=\204\335\322\313 #\210\266A\202\305\266A\202\253\210\312\"\207" [default-directory shell-highlight-undef-remote-file-name-inhibit-cache shell--highlight-undef-exec-cache file-remote-p nil executable-find #[514 "\211\301\302\303\304\"E\240\210\211\242B\211\207" [shell--highlight-undef-exec-cache 0 make-hash-table :test equal] 8 (#$ . 56581)] assoc float-time #s(hash-table test eq purecopy t data (t 79 nil 84)) gethash t clrhash exec-path (file-error) directory-files-and-attributes nosort integer puthash] 17 (#$ . 56420)])#@63 Matcher used to highlight shell commands up to END. (fn END) (defalias 'shell-highlight-undef-matcher #[257 "\305\306#\205~\307 \310\311\"\216\312\313!\313\224\314 \211\203!\315\301\"\202\" \316`\317\320$\2030\321\202v\n\235\203:\322\202v\323!\203k\324!\203W\325\303!\203P \206S\326 !P\262\327!\204c\330!\203g\331\202v\332\202v\333!\203u\331\202v\332)\262)\266\306\207" [shell-highlight-undef-regexp default-directory shell-highlight-undef-aliases comint-file-name-prefix shell--highlight-undef-face re-search-forward t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] match-string 6 buffer-base-buffer buffer-local-value text-property-any field output nil shell-highlight-undef-alias-face file-name-directory file-name-absolute-p boundp file-remote-p file-executable-p file-directory-p shell-highlight-undef-defined-face shell-highlight-undef-undefined-face shell--highlight-undef-executable-find] 10 (#$ . 57768)])#@70 Non-nil if shell commands are fontified in `comint-indirect-buffer'. (defvar shell--highlight-undef-indirect nil (#$ . 58750))#@121 Non-nil if Shell-Highlight-Undef mode is enabled. Use the command `shell-highlight-undef-mode' to change this variable. (make-variable-buffer-local 'shell--highlight-undef-indirect) (defvar shell-highlight-undef-mode nil (#$ . 58883))#@757 Highlight undefined shell commands and aliases. This minor mode is mostly useful in `shell-mode' buffers and works better if `comint-fontify-input-mode' is enabled. This is a minor mode. If called interactively, toggle the `Shell-Highlight-Undef 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 the variable `shell-highlight-undef-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (make-variable-buffer-local 'shell-highlight-undef-mode) (defalias 'shell-highlight-undef-mode #[256 "\306 \307=\203 ?\202\247\203\310W\203\311\202\312\313\301!\2031\314\300 \"\2031\300 B\n\203R\315\316\n\312#\210\311\317\312!\211\203Nr\211q\210\320\311 \")\210\210\202W\320\311 \"\210\315\321\322\312#\210\203\310\f\203k\311\323\324!\210\325\326!\210\327 \203x\330\202|\3311P\332\333\3342!\312\"\335\333\336\3342!\3343!\"\312\"\337\260\340\341\" \203\275\211\317\312!\211\203\262r\211q\210 )\266\202\301\342\316\311\312$\266\202\301\211 \266\342\321\322\311\312$\210\343 \210\344\345\203\325\346\202\326\347\"\210\350\351!\203\371\306 \203\352\211\306 \232\203\371\352\353\354\203\365\355\202\366\356\357$\210\210\360 \207" [shell-highlight-undef-mode local-minor-modes shell--highlight-undef-indirect shell-highlight-undef-keywords comint-use-prompt-regexp comint-fontify-input-mode current-message toggle 1 nil t boundp delq remove-hook comint-indirect-setup-hook comint-indirect-buffer font-lock-remove-keywords comint-fontify-input-mode-hook shell-highlight-undef-mode-restart error "`shell-highlight-undef-mode' is incompatible with `comint-use-prompt-regexp'" require sh-script "\\([;(){}`|&]" "" "\\|" "\\|^\\)[ ]*\\(\\(" regexp-opt sh-feature "[ ]+\\)?" append "[ ]+\\)?\\_<\\(\\(?:\\s_\\|\\sw\\|/\\)+\\)\\_>" make-closure #[0 "\300\303\304\n\305#\207" [V0 shell-highlight-undef-regexp shell-highlight-undef-keywords font-lock-add-keywords nil t] 4] add-hook font-lock-flush run-hooks shell-highlight-undef-mode-hook shell-highlight-undef-mode-on-hook shell-highlight-undef-mode-off-hook called-interactively-p any message "%s %sabled%s" "Shell-Highlight-Undef mode" "en" "dis" " in current buffer" force-mode-line-update comint-prompt-regexp sh-leading-keywords sh-other-keywords] 13 (#$ . 59124) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar shell-highlight-undef-mode-hook nil)#@294 If `shell-highlight-undef-mode' is on, restart it. `shell-highlight-undef-mode' performs its setup differently depending on `comint-fontify-input-mode'. It's useful to call this function when switching `comint-fontify-input-mode' in order to make `shell-highlight-undef-mode' redo its setup. (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-highlight-undef-mode-map shell-highlight-undef-mode-hook variable-documentation put "Hook run after entering or leaving `shell-highlight-undef-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-highlight-undef-mode boundp] 6) (defalias 'shell-highlight-undef-mode-restart #[0 "\205\300\301!\207" [shell-highlight-undef-mode 1] 2 (#$ . 61894)]) (provide 'shell)