Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/eshell/em-basic.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\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\207
G\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 (#$ . 1267)])
#@79 Implementation of `echo'.  See `eshell-plain-echo-behavior'.

(fn &rest ARGS)
(defalias 'eshell/echo #[128 "\211\300\301\302#\211
A\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 (#$ . 1875)])
#@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 flatten-tree eshell-echo eshell-output-object "\n"] 7 (#$ . 2233)])
#@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 (#$ . 2515)])
#@56 Shell-like implementation of `umask'.

(fn &rest ARGS)
(defalias 'eshell/umask #[128 "\301
!\302\303\"\262
\304\305\306#\211
A\262\242
\211\203
\203\257\307\310\311\312\313\314 !\315\"\"P\316
\211G\317Z\"\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\347\207" [eshell-output-handle flatten-tree 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 substring 3 "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" nil] 16 (#$ . 2685)])
(provide 'em-basic)