JezK
Edit File: em-basic.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:55:16 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/em-basic.el ;;; in Emacs version 24.3.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&\210\313\314\305\315\316\317\311\304&\207" [require 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 "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) #@152 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. (defalias 'eshell-echo #[(args &optional output-newline) "\203 \304\305 \"\306P\207 G\307U\203 \310\202& G\311U\203\" @\202& \312\313 \" \203K \n;\2036 \n\306P\202L \n<\203C \314\n\306C\"\202L \315\n!\306P\202L \n)\207" [eshell-plain-echo-behavior args value output-newline apply eshell-flatten-and-stringify "\n" 0 "" 1 mapcar #[(arg) ";\203 \301\302G\303$\210\207" [arg set-text-properties 0 nil] 5] append eshell-stringify] 3 (#$ . 1344)]) #@62 Implementation of `echo'. See `eshell-plain-echo-behavior'. (defalias 'eshell/echo #[(&rest args) "\306\211\211\211\211 \307\310\311\312#.\207" [args temp-args ext-command last-value usage-msg output-newline nil eshell-do-opt "echo" ((110 nil nil output-newline "terminate with a newline") (104 "help" nil nil "output this help screen") :preserve-args :usage "[-n] [object]") #[nil "\302 \"\207" [args output-newline eshell-echo] 3]] 5 (#$ . 1955)]) #@57 Print out each of the arguments, separated by newlines. (defalias 'eshell/printnl #[(&rest args) "\304!\211\205& \305 @C!\211\306\n \"\210)\307\306\n \"\210* A\211\204 \310)\207" [args elems object eshell-output-handle eshell-flatten-list eshell-echo eshell-output-object "\n" nil] 4 (#$ . 2420)]) #@42 Return the argument(s) as a single list. (defalias 'eshell/listify #[(&rest args) "G\301V\203 \207@<\203 @\207@C\207" [args 1] 2 (#$ . 2731)]) #@39 Shell-like implementation of `umask'. (defalias 'eshell/umask #[(&rest args) "\306!\307\310\")\311\211\211\211\211 \312\313\314\315#.\207" [args temp-args ext-command last-value usage-msg symbolic-p eshell-flatten-list mapcar eshell-stringify nil eshell-do-opt "umask" ((83 "symbolic" nil symbolic-p "display umask symbolically") (104 "help" nil nil "display this usage message") :usage "[-S] [mode]") #[nil "\203 \203\233 \306\307\310\311\312\313 !\314\"\"P\211\211G\315Z\316O \203\206 \313 \307\317\311 \320\"\320U\2050 \321\311 \322\"\322U\205: \323\311 \324\"\324U\205D \325Q\311 \326\"\326U\205O \321\311 \327\"\327U\205Y \323\311 \330\"\330U\205c \325Q\311 \331\"\331U\205n \321\311 \332\"\332U\205x \323\311 \333\"\333U\205\202 \325Q$)\n\211 \334\f \"\210)\335 \334\f \"\210+\202\305 \336@!\240\210@\247\203\271 \337\314\340\341\342@!P!@Z!\210\202\275 \343\344!\210\345 \334\f \"\210)\316\207" [args symbolic-p modstr mode object eshell-output-handle "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"] 10]] 5 (#$ . 2887)]) (provide 'em-basic)