;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\"\207" [require cl-lib esh-util custom-declare-group eshell-xtra nil "This module defines some extra alias functions which are entirely\noptional. They can be viewed as samples for how to write Eshell alias\nfunctions, or as aliases which make some of Emacs's behavior more\nnaturally accessible within Emacs." :tag "Extra alias functions" :group eshell-module autoload eshell-parse-command "esh-cmd"] 8)#@66 Implementation of expr, using the calc package. (fn &rest ARGS) (defalias 'eshell/expr #[128 "\300C\301\302\303!\304#\262!\207" [calc-eval mapconcat eshell-stringify flatten-tree " "] 7 (#$ . 578)])#@85 Easy front-end to `cl-substitute', for comparing lists of strings. (fn &rest ARGS) (defalias 'eshell/substitute #[128 "\300\301@A@\302\303AA&\207" [apply cl-substitute :test equal] 8 (#$ . 786)])#@80 Easy front-end to `cl-count', for comparing lists of strings. (fn &rest ARGS) (defalias 'eshell/count #[128 "\300\301@A@\302\303AA&\207" [apply cl-count :test equal] 8 (#$ . 993)])#@83 Easy front-end to `cl-mismatch', for comparing lists of strings. (fn &rest ARGS) (defalias 'eshell/mismatch #[128 "\300\301@A@\302\303AA&\207" [apply cl-mismatch :test equal] 8 (#$ . 1185)])#@80 Easy front-end to `cl-union', for comparing lists of strings. (fn &rest ARGS) (defalias 'eshell/union #[128 "\300\301@A@\302\303AA&\207" [apply cl-union :test equal] 8 (#$ . 1387)])#@87 Easy front-end to `cl-intersection', for comparing lists of strings. (fn &rest ARGS) (defalias 'eshell/intersection #[128 "\300\301@A@\302\303AA&\207" [apply cl-intersection :test equal] 8 (#$ . 1580)])#@89 Easy front-end to `cl-set-difference', for comparing lists of strings. (fn &rest ARGS) (defalias 'eshell/set-difference #[128 "\300\301@A@\302\303AA&\207" [apply cl-set-difference :test equal] 8 (#$ . 1794)])#@91 Easy front-end to `cl-set-exclusive-or', for comparing lists of strings. (fn &rest ARGS) (defalias 'eshell/set-exclusive-or #[128 "\300\301@A@\302\303AA&\207" [apply cl-set-exclusive-or :test equal] 8 (#$ . 2014)]) (byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [defalias eshell/ff find-name-dired eshell/gf find-grep-dired provide em-xtra] 3)