;ELC ;;; Compiled ;;; in Emacs version 27.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 (#$ . 1267)]) #@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 (#$ . 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#\211A\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)