procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move pcomplete/bcc32 from eshell to pcmpl-x (Bug#10585)

Browse source 
* lisp/eshell/em-xtra.el (pcomplete/bcc32, pcomplete/bcc): Move
from here...
* lisp/pcmpl-x.el (pcomplete/bcc32, pcomplete/bcc): ...to here.
This commit is contained in:
Stefan Kangas 2020-09-02 02:34:43 +02:00 • committed by Stefan Kangas
parent 9fff5491c3
commit 600d3f0669
2 changed files with 32 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
lisp/eshell/em-xtra.el
View file

@ -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:

32
lisp/pcmpl-x.el
View file

@ -286,5 +286,37 @@ long options."
(pcmpl-x-ag-options))))
(pcomplete-here* (pcomplete-dirs-or-entries)))))
;;;###autoload
(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]\\)?\\'"))))
;;;###autoload
(defalias 'pcomplete/bcc 'pcomplete/bcc32)
(provide 'pcmpl-x)
;;; pcmpl-x.el ends here