ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/eshell/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/eshell/em-basic.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\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323\312\305&\207" [require esh-util eshell esh-opt custom-declare-group eshell-basic nil "The \"basic\" code provides a set of convenience functions which\nare traditionally considered shell builtins. Since all of the\nfunctionality provided by them is accessible through Lisp, they are\nnot really builtins at all, but offer a command-oriented way to do the\nsame thing." :tag "Basic shell commands" :group eshell-module custom-declare-variable eshell-plain-echo-behavior funcall function #[0 "\300\207" [nil] 1] "If non-nil, `echo' tries to behave like an ordinary shell echo.\nThis comes at some detriment to Lisp functionality. However, the Lisp\nequivalent of `echo' can always be achieved by using `identity'." :type boolean] 8)
#@188 Implementation code for a Lisp version of `echo'.
It returns a formatted value that should be passed to `eshell-print'
or `eshell-printn' for display.
(fn ARGS &optional OUTPUT-NEWLINE)
(defalias 'eshell-echo #[513 "\203 \301\302\"\303P\207G\304U\203 \305\202& G\306U\203\" @\202& \307\310\"\203J \211;\2035 \211\303P\202K \211<\203B \311\303C\"\202K \312!\303P\202K \211\207" [eshell-plain-echo-behavior apply eshell-flatten-and-stringify "\n" 0 "" 1 mapcar #[257 "\211;\203
\300\301G\302$\210\207" [set-text-properties 0 nil] 6 "\n\n(fn ARG)"] append eshell-stringify] 6 (#$ . 1269)])
#@79 Implementation of `echo'. See `eshell-plain-echo-behavior'.
(fn &rest ARGS)
(defalias 'eshell/echo #[128 "\211\300\301\302#\211A\262\242\303\"\207" [eshell--do-opts "echo" ((110 nil nil output-newline "terminate with a newline") (104 "help" nil nil "output this help screen") :preserve-args :usage "[-n] [object]") eshell-echo] 8 (#$ . 1877)])
#@74 Print out each of the arguments, separated by newlines.
(fn &rest ARGS)
(defalias 'eshell/printnl #[128 "\301!\211\205! \302@C!\211\303\"\266\304\303\"\266\211A\262\202 \207" [eshell-output-handle eshell-flatten-list eshell-echo eshell-output-object "\n"] 7 (#$ . 2235)])
#@59 Return the argument(s) as a single list.
(fn &rest ARGS)
(defalias 'eshell/listify #[128 "\211G\300V\203 \207\211@<\203 \211@\207\211@C\207" [1] 3 (#$ . 2524)])
#@56 Shell-like implementation of `umask'.
(fn &rest ARGS)
(defalias 'eshell/umask #[128 "\301!\302\303\"\262\304\305\306#\211A\262\242\211\203 \203\257 \307\310\311\312\313\314 !\315\"\"P\211G\316Z\317O\262\203\235 \314 \310\320\312\321\"\321U\205D \322\312\323\"\323U\205N \324\312\325\"\325U\205X \326Q\312\327\"\327U\205c \322\312\330\"\330U\205m \324\312\331\"\331U\205x \326Q\312\332\"\332U\205\203 \322\312\333\"\333U\205\216 \324\312\334\"\334U\205\231 \326Q$\266\202\211\211\335\"\266\336\335\"\266\202\330 \211\337@!\240\210\211@\247\203\315 \340\315\341\342\343@!P!@Z!\210\202\321 \344\345!\210\346\335\"\266\317\207" [eshell-output-handle eshell-flatten-list mapcar eshell-stringify eshell--do-opts "umask" ((83 "symbolic" nil symbolic-p "display umask symbolically") (104 "help" nil nil "display this usage message") :usage "[-S] [mode]") "000" format "%o" logand lognot default-file-modes 511 3 nil "u=%s,g=%s,o=%s" 64 "r" 128 "w" 256 "x" 8 16 32 1 2 4 eshell-output-object "\n" eshell-convert set-default-file-modes read-from-string "?\\" number-to-string error "setting umask symbolically is not yet implemented" "Warning: umask changed for all new files created by Emacs.\n"] 16 (#$ . 2694)])
(provide 'em-basic)
Kontol Shell Bypass