Current File : //usr/local/share/emacs/27.2/lisp/eshell/em-tramp.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\303\304\305\306\307\310\311\312&\207" [require esh-util esh-cmd custom-declare-group eshell-tramp nil "This module defines commands that use TRAMP in a way that is\n not transparent to the user. So far, this includes only the\n built-in su and sudo commands, which are not compatible with\n the full, external su and sudo commands, and require the user\n to understand how to use the TRAMP sudo method." :tag "TRAMP Eshell features" :group eshell-module] 8)
#@43 Initialize the TRAMP-using commands code.
(defalias 'eshell-tramp-initialize #[0 "\302\211>\262\203 \303\304\305\306\307$\210\310\301!\210\311\312 \"\211\207" [eshell-modules-list eshell-complex-commands eshell-cmpl add-hook pcomplete-try-first-hook eshell-complete-host-reference nil t make-local-variable append ("su" "sudo")] 5 (#$ . 911)])
(autoload 'eshell-parse-command "esh-cmd")
#@91 Alias "su" to call TRAMP.
Uses the system su through TRAMP's su method.
(fn &rest ARGS)
(defalias 'eshell/su #[128 "\301!\302\303\"\262\262\304!\301!\302\303\"\262\305\306\307#\211A\262\242\310\311\312\313\314\"\206. \315\316\317!!\313!\211\203T \211@\211\320\230\203J \321\262\n\202M \211\262A\266\202\2028 \210\320 \235\203_ \321\262\203g \322\262\211\203\222 \313\323\"\306\230\203} \313\324\"\230\204\222 \325\326\327\330\331\332\333#%C\"\202\237 \325\326\327\334$C\"\266\204\"\266\204\207" [default-directory flatten-tree mapcar eshell-stringify copy-tree eshell--do-opts "su" ((104 "help" nil nil "show this usage screen") (108 "login" nil login "provide a login environment") (32 nil nil login "provide a login environment") :usage "[- | -l | --login] [USER]\nBecome another USER during a login session.") throw eshell-replace-command "root" file-remote-p host "localhost" file-local-name expand-file-name "-" t "~/" method user eshell-parse-command "cd" format "%s|su:%s@%s:%s" substring 0 -1 "/su:%s@%s:%s"] 20 (#$ . 1308)])
(put 'eshell/su 'eshell-no-numeric-conversions t)
#@97 Alias "sudo" to call Tramp.
Uses the system sudo through TRAMP's sudo method.
(fn &rest ARGS)
(defalias 'eshell/sudo #[128 "\301!\302\303\"\262\262\304!\301!\302\303\"\262\305\306\307#\211A\262\242\310\311\206* \312\313\314\"\2062 \315\316\317!!\313!\n@;\203R \n@\320\235\203R \nAA\262 \202: \211\203y \313\321\"\306\230\203h \313\322\"\230\204y \323\324\325\326\327#%\202 \323\330$\331 @\fA\")\266\204\"\266\204\207" [default-directory flatten-tree mapcar eshell-stringify copy-tree eshell--do-opts "sudo" ((104 "help" nil nil "show this usage screen") (117 "user" t user "execute a command as another USER") :show-usage :parse-leading-options-only :usage "[(-u | --user) USER] COMMAND\nExecute a COMMAND as the superuser or another USER.") throw eshell-external "root" file-remote-p host "localhost" file-local-name expand-file-name ("-u" "--user") method user format "%s|sudo:%s@%s:%s" substring 0 -1 "/sudo:%s@%s:%s" eshell-named-command] 18 (#$ . 2440)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put eshell/sudo eshell-no-numeric-conversions t provide em-tramp] 4)
Mini Shell