ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/eshell/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/eshell/eshell.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314& \207" [require esh-util esh-mode 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 (#$ . 847)])
(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 (#$ . 1111)])
(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&\210\304\325\306\307\326DD\327\312\330\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." string eshell-directory-name #[0 "\300\301\302\"\207" [locate-user-emacs-file "eshell/" ".eshell/"] 3] "The directory where Eshell control files should be kept." directory] 8)
#@499 Create an interactive Eshell buffer.
The buffer used for Eshell sessions is determined by the value of
`eshell-buffer-name'. If there is already an Eshell session active in
that buffer, Emacs will simply switch to it. Otherwise, a new session
will begin. A numeric prefix arg (as in `C-u 42 M-x eshell RET')
switches to the session with that number, creating it if necessary. A
nonnumeric prefix arg means to create a new session. Returns the
buffer selected (or created).
(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 (#$ . 2153) "P"])
(defalias 'eshell-return-exits-minibuffer #[0 "\301\302\303#\210\301\304\305#\210\301\306\305#\210\301\307\305#\210\301\310\305#\210\301\311\305#\207" [eshell-mode-map define-key [(control 103)] abort-recursive-edit [return] exit-minibuffer [(control 109)] [(control 106)] [(meta return)] [(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 (#$ . 3380))
#@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 "\305\306!\210\211\204 \262\307\310\311C\211\312\313\314\315\316\"\317\"\320$\240\210\312\313\321\315\316!\322\"\320$\216\323\324\242\"\210\204I \325\326!\262\327\211\n>\262\203I \330!\210)\266)\204U \331\332!\210\211\203c \333\334\335p!\"P\262\212\336\337!q\307\340 \210\341\342\343!D!\311\203\202 <\203\202 \344\202\206 \307\262\345\346\347!!\203\222 \350!\210\351!\210\203\274 \203\242 \352 !\210 \203\252 \353\354!\210db\210n\203\274 o\204\274 \355\356!\210\202\255 \203\306 \346!\204\312 \353\357!\210?\205%\204\327 \360\202\333 \361ed\"\211\313U\203\353 \362\363!\210\350!\202#\211\364U\203\375 \362\365\366 \"\210\350!\202#\367 r\312\313\370\315\316!\371\"\360$\216\372\373!!\210eb\210\205 \f\205 \374 *\262\262\266\203)\262)\207" [current-prefix-arg eshell-non-interactive-p eshell-modules-list eshell-last-async-proc temp-buffer-resize-mode require esh-cmd 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 (#$ . 3630) 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 (#$ . 5730)])
(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 (#$ . 6764)])
(byte-code "\300\301!\210\302\303!\207" [run-hooks eshell-load-hook provide eshell] 2)
Kontol Shell Bypass