;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:53 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/em-xtra.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\302\303\304\305\306\307\310\311&\207" [require compile 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] 8)
#@49 Implementation of expr, using the calc package.
(defalias 'eshell/expr #[(&rest args) "\302\303!\204\304\305\306\307\310!\"\"\207\303\211C\311\312\310!\313#)!)\207" [args func fboundp calc-eval throw eshell-replace-command eshell-parse-command "*expr" eshell-flatten-list mapconcat eshell-stringify " "] 7 (#$ . 973)])
#@67 Easy front-end to `intersection', for comparing lists of strings.
(defalias 'eshell/substitute #[(&rest args) "\302\303@\211A@)\304\305\211AA)&\207" [args x apply substitute :test equal] 8 (#$ . 1305)])
#@67 Easy front-end to `intersection', for comparing lists of strings.
(defalias 'eshell/count #[(&rest args) "\302\303@\211A@)\304\305\211AA)&\207" [args x apply count :test equal] 8 (#$ . 1520)])
#@67 Easy front-end to `intersection', for comparing lists of strings.
(defalias 'eshell/mismatch #[(&rest args) "\302\303@\211A@)\304\305\211AA)&\207" [args x apply mismatch :test equal] 8 (#$ . 1725)])
#@67 Easy front-end to `intersection', for comparing lists of strings.
(defalias 'eshell/union #[(&rest args) "\302\303@\211A@)\304\305\211AA)&\207" [args x apply union :test equal] 8 (#$ . 1936)])
#@67 Easy front-end to `intersection', for comparing lists of strings.
(defalias 'eshell/intersection #[(&rest args) "\302\303@\211A@)\304\305\211AA)&\207" [args x apply intersection :test equal] 8 (#$ . 2141)])
#@67 Easy front-end to `intersection', for comparing lists of strings.
(defalias 'eshell/set-difference #[(&rest args) "\302\303@\211A@)\304\305\211AA)&\207" [args x apply set-difference :test equal] 8 (#$ . 2360)])
#@67 Easy front-end to `intersection', for comparing lists of strings.
(defalias 'eshell/set-exclusive-or #[(&rest args) "\302\303@\211A@)\304\305\211AA)&\207" [args x apply set-exclusive-or :test equal] 8 (#$ . 2583)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias eshell/ff find-name-dired eshell/gf find-grep-dired] 3)
#@49 Completion function for Borland's C++ compiler.
(defalias 'pcomplete/bcc32 #[nil "\301\302!\303\304\"\203\305\306\307\310\"\311\211$\210\202X\303\312\"\203,\305\313\307\310\"\311\211$\210\202X\303\314\"\203@\305\315\307\316\"\311\211$\210\202X\303\317\"\203T\305\320\307\316\"\311\211$\210\202X\321\322!\210)\305\323\311\211\211$\205e\202Y\207" [cur pcomplete-arg 0 string-match "\\`-w\\([^;]+;\\)*\\([^;]*\\)\\'" pcomplete--here #[nil "\300\207" [("ali" "amb" "amp" "asc" "asm" "aus" "bbf" "bei" "big" "ccc" "cln" "cod" "com" "cpt" "csu" "def" "dig" "dpu" "dsz" "dup" "eas" "eff" "ext" "hch" "hid" "ias" "ibc" "ifr" "ill" "nil" "lin" "lvc" "mcs" "mes" "mpc" "mpd" "msg" "nak" "ncf" "nci" "ncl" "nfd" "ngu" "nin" "nma" "nmu" "nod" "nop" "npp" "nsf" "nst" "ntd" "nto" "nvf" "obi" "obs" "ofp" "osh" "ovf" "par" "pch" "pck" "pia" "pin" "pow" "prc" "pre" "pro" "rch" "ret" "rng" "rpt" "rvl" "sig" "spa" "stl" "stu" "stv" "sus" "tai" "tes" "thr" "ucp" "use" "voi" "zdi")] 1] match-string 2 nil "\\`-[LIn]\\([^;]+;\\)*\\([^;]*\\)\\'" #[nil "\300\301
\302\"\207" [nil pcomplete-entries file-directory-p] 4] "\\`-[Ee]\\(.*\\)\\'" #[nil "\300\301\302\301\303\304\305\306\307\"\310\"\311\312%\"\207" ["\\.[Ee][Xx][Ee]\\'" nil pcomplete-entries make-byte-code 257 #1="\302
!\206\300\203\303\300\"\205\301?\206\301
!\207" vconcat vector #2=[file-directory-p string-match] 4 #3="\n\n(fn F)"] 11] 1 "\\`-o\\(.*\\)\\'" #[nil "\300\301\302\301\303\304\305\306\307\"\310\"\311\312%\"\207" ["\\.[Oo][Bb][Jj]\\'" nil pcomplete-entries make-byte-code 257 #1# vconcat vector #2# 4 #3#] 11] pcomplete-opt "3456ABCDEHIKLMNOPRSTUVXabcdefgijklnoptuvwxyz" #[nil "\300\301\302\301\303\304\305\306\307\"\310\"\311\312%\"\207" ["\\.[iCc]\\([Pp][Pp]\\)?\\'" nil pcomplete-entries make-byte-code 257 #1# vconcat vector #2# 4 #3#] 11]] 5 (#$ . 2926)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias pcomplete/bcc pcomplete/bcc32 provide em-xtra] 3)