diff options
Diffstat (limited to 'lisp/eshell/em-xtra.el')
| -rw-r--r-- | lisp/eshell/em-xtra.el | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/lisp/eshell/em-xtra.el b/lisp/eshell/em-xtra.el index d55986c49b8..3c038edfd18 100644 --- a/lisp/eshell/em-xtra.el +++ b/lisp/eshell/em-xtra.el @@ -94,36 +94,6 @@ naturally accessible within Emacs." (defalias 'eshell/ff 'find-name-dired) (defalias 'eshell/gf 'find-grep-dired) -(defun pcomplete/bcc32 () - "Completion function for Borland's C++ compiler." - (let ((cur (pcomplete-arg 0))) - (cond - ((string-match "\\`-w\\([^;]+;\\)*\\([^;]*\\)\\'" cur) - (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 cur))) - ((string-match "\\`-[LIn]\\([^;]+;\\)*\\([^;]*\\)\\'" cur) - (pcomplete-here (pcomplete-dirs) (match-string 2 cur))) - ((string-match "\\`-[Ee]\\(.*\\)\\'" cur) - (pcomplete-here (pcomplete-dirs-or-entries "\\.[Ee][Xx][Ee]\\'") - (match-string 1 cur))) - ((string-match "\\`-o\\(.*\\)\\'" cur) - (pcomplete-here (pcomplete-dirs-or-entries "\\.[Oo][Bb][Jj]\\'") - (match-string 1 cur))) - (t - (pcomplete-opt "3456ABCDEHIKLMNOPRSTUVXabcdefgijklnoptuvwxyz")))) - (while (pcomplete-here - (pcomplete-dirs-or-entries "\\.[iCc]\\([Pp][Pp]\\)?\\'")))) - -(defalias 'pcomplete/bcc 'pcomplete/bcc32) - (provide 'em-xtra) ;; Local Variables: |