Current File : //usr/local/share/emacs/27.2/lisp/eshell/eshell.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\314\315\316\317& \207" [require esh-util esh-module esh-proc esh-io esh-cmd custom-declare-group eshell nil "Command shell implemented entirely in Emacs Lisp.\nIt invokes no external processes beyond those requested by the\nuser, and is intended to be a functional replacement for command\nshells such as bash, zsh, rc, 4dos." :link (info-link "(eshell)Top") :version "21.1" :group applications] 10)
#@57 Add `eshell-buffer-name' to `same-window-buffer-names'.
(defalias 'eshell-add-to-window-buffer-names #[0 "\301\302\"\207" [eshell-buffer-name add-to-list same-window-buffer-names] 3 (#$ . 910)])
(make-obsolete 'eshell-add-to-window-buffer-names nil "24.3")
#@62 Remove `eshell-buffer-name' from `same-window-buffer-names'.
(defalias 'eshell-remove-from-window-buffer-names #[0 "\302 \"\211\207" [eshell-buffer-name same-window-buffer-names delete] 3 (#$ . 1174)])
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\313\314\315&\210\304\321\306\307\322DD\323\312\324\314\315&\207" [make-obsolete eshell-remove-from-window-buffer-names nil "24.3" custom-declare-variable eshell-load-hook funcall function #[0 "\300\207" [nil] 1] "A hook run once Eshell has been loaded." :type hook :group eshell eshell-unload-hook #[0 "\300\207" [(eshell-unload-all-modules)] 1] "A hook run when Eshell is unloaded from memory." eshell-buffer-name #[0 "\300\207" [#1="*eshell*"] 1 #1#] "The basename used for Eshell buffers.\nThis is the default name used when running `eshell'.\n\nWith a numeric prefix argument to `eshell', the buffer name will\nbe the value of this variable followed by the number. For\nexample, with the numeric prefix argument 2, the buffer would be\nnamed \"*eshell*<2>\"." string] 8)
#@575 Create an interactive Eshell buffer.
Start a new Eshell session, or switch to an already active
session. Return the buffer selected (or created).
With a nonnumeric prefix arg, create a new session.
With a numeric prefix arg (as in `C-u 42 M-x eshell RET'), switch
to the session with that number, or create it if it doesn't
already exist.
The buffer name used for Eshell sessions is determined by the
value of `eshell-buffer-name', which see.
Eshell is a shell-like command interpreter. For more
information on Eshell, see Info node `(eshell)Top'.
(fn &optional ARG)
(defalias 'eshell #[256 "\204 \301\300!\210\211\247\203 \302\303\304#!\202$ \211\203! \305!\202$ \302!\211\203. \306!\2042 \301\307!\210\310!\210\311\312!\204? \312 \210\211\207" [eshell-buffer-name cl--assertion-failed get-buffer-create format "%s<%d>" generate-new-buffer buffer-live-p (and buf (buffer-live-p buf)) pop-to-buffer-same-window derived-mode-p eshell-mode] 6 (#$ . 2275) "P"])
(defalias 'eshell-return-exits-minibuffer #[0 "\301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\305#\207" [eshell-mode-map define-key [(control 103)] abort-recursive-edit [(control 109)] exit-minibuffer [(control 106)] [(meta control 109)]] 4])
#@194 A variable which is non-nil when Eshell is not running interactively.
Modules should use this variable so that they don't clutter
non-interactive sessions, such as when using `eshell-command'.
(defvar eshell-non-interactive-p nil (#$ . 3517))
#@137 Execute the Eshell command string COMMAND.
With prefix ARG, insert output into the current buffer at point.
(fn &optional COMMAND ARG)
(defalias 'eshell-command #[512 "\211\204 \262\305\306\307C\211\310\311\312\313\314\"\315\"\316$\240\210\310\311\317\313\314!\320\"\316$\216\321\322\242\"\210\204E \323\324!\262\325\211\n>\262\203E \326!\210)\266)\204Q \327\330!\210\211\203_ \331\332\333p!\"P\262\212\334\335!q\305\336 \210\337\340\341!D!\307\203~ <\203~ \342\202\202 \305\262\343\344\345!!\203\216 \346!\210\347!\210\203\270 \203\236 \350 !\210 \203\246 \351\352!\210db\210n\203\270 o\204\270 \353\354!\210\202\251 \203\302 \344!\204\306 \351\355!\210?\205!\204\323 \356\202\327 \357ed\"\211\311U\203\347 \360\361!\210\346!\202 \211\362U\203\371 \360\363\364 \"\210\346!\202 \365 r\310\311\366\313\314!\367\"\356$\216\370\371!!\210eb\210\205 \f\205 \372 *\262\262\266\203)\262)\207" [current-prefix-arg eshell-non-interactive-p eshell-modules-list eshell-last-async-proc temp-buffer-resize-mode t #[0 "\300 \210\301 \207" [eshell-mode eshell-return-exits-minibuffer] 1] nil make-byte-code 0 "\302\303\301\242\"\210\300 \207" vconcat vector [remove-hook minibuffer-setup-hook] 3 "\301\302\300\242\"\207" [remove-hook minibuffer-setup-hook] add-hook minibuffer-setup-hook read-from-minibuffer "Emacs shell command: " eshell-hist eshell-add-input-to-history error "No command specified!" format " >>> #<buffer %s>" buffer-name generate-new-buffer " *eshell cmd*" eshell-mode eshell-eval-command eshell-commands eshell-parse-command "*Eshell Async Command Output*" "*Eshell Command Output*" buffer-live-p get-buffer kill-buffer rename-buffer eshell-wait-for-process cl--assertion-failed (not (eshell-interactive-process)) delete-char -1 (and buf (buffer-live-p buf)) 2 count-lines message "(There was no command output)" 1 "%s" buffer-string internal--before-save-selected-window "\301\300!\207" [internal--after-save-selected-window] select-window display-buffer resize-temp-buffer-window] 14 (#$ . 3767) nil])
#@310 Execute the given Eshell COMMAND, and return the result.
The result might be any Lisp object.
If STATUS-VAR is a symbol, it will be set to the exit status of the
command. This is the only way to determine whether the value returned
corresponding to a successful execution.
(fn COMMAND &optional STATUS-VAR)
(defalias 'eshell-command-result #[513 "\204 \302\203 9\203V \303L\210\207\304\305!r\211q\210\306\303\307\310\311!\312\"\313$\216\314\315 \210\316\317\320\321!DD\314\"\211@\322=\204A \323\324!\210\203N 9\203N L\210\211A@\262+\262\207" [eshell-non-interactive-p eshell-last-command-status nil 0 generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 t eshell-mode eshell-do-eval eshell-commands eshell-command-to-value eshell-parse-command quote cl--assertion-failed (eq (car result) 'quote)] 9 (#$ . 5832)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias eshell-report-bug report-emacs-bug nil make-obsolete "23.1"] 4)
#@267 Unload all modules that were loaded by Eshell, if possible.
If the user has require'd in any of the modules, or customized a
variable with a :require tag (such as `eshell-prefer-to-shell'), it
will be impossible to unload Eshell completely without restarting
Emacs.
(defalias 'eshell-unload-all-modules #[0 "\300\301!\205> \301\302!\211\203: \211@\303!\2033 \3041. \305\306\307!\"\210\310!\210\305\311\307!\"0\2022 \210\2023 \210A\266\202\202 \210\305\312!\207" [fboundp eshell-subgroups eshell featurep (error) message "Unloading %s..." symbol-name unload-feature "Unloading %s...done" "Unloading eshell...done"] 6 (#$ . 6866)])
(byte-code "\300\301!\210\302\303!\207" [run-hooks eshell-load-hook provide eshell] 2)
Mini Shell