;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:40:41 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/eshell/em-xtra.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`em-xtra.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313!\207" [provide em-xtra 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' behavior more\nnaturally accessible within Emacs." :tag "Extra alias functions" :group eshell-module require compile] 8) #@49 Implementation of expr, using the calc package. (defalias 'eshell/expr #[(&rest args) "\302\303!\204\304\305\306\307\310!\"\"\207\303\303C\311\312\310!\313#)!)\207" [args func fboundp calc-eval throw eshell-replace-command eshell-parse-command "*expr" eshell-flatten-list mapconcat eshell-stringify " "] 6 (#$ . 1067)]) #@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 (#$ . 1400)]) #@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 (#$ . 1615)]) #@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 (#$ . 1820)]) #@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 (#$ . 2031)]) #@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 (#$ . 2236)]) #@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 (#$ . 2455)]) #@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 (#$ . 2678)]) (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 '("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") match-string 2 nil "\\`-[LIn]\\([^;]+;\\)*\\([^;]*\\)\\'" (pcomplete-dirs) "\\`-[Ee]\\(.*\\)\\'" (pcomplete-dirs-or-entries "\\.[Ee][Xx][Ee]\\'") 1 "\\`-o\\(.*\\)\\'" (pcomplete-dirs-or-entries "\\.[Oo][Bb][Jj]\\'") pcomplete-opt "3456ABCDEHIKLMNOPRSTUVXabcdefgijklnoptuvwxyz" (pcomplete-dirs-or-entries "\\.[iCc]\\([Pp][Pp]\\)?\\'")] 5 (#$ . 3021)]) (defalias 'pcomplete/bcc 'pcomplete/bcc32)