mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/pcmpl-rpm.el (pcomplete/rpm): Handle -qf.

Browse source 
Ref: http://lists.gnu.org/archive/html/emacs-devel/2012-04/msg00165.html
This commit is contained in:
Glenn Morris 2012-04-07 11:52:43 -07:00
parent 9bb794c725
commit bf6fa4236b
2 changed files with 18 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-04-07 Glenn Morris <rgm@gnu.org>
* pcmpl-rpm.el (pcomplete/rpm): Handle -qf.
2012-04-07 Eli Zaretskii <eliz@gnu.org>
* minibuffer.el (completion-in-region-mode-map): Bind

16
lisp/pcmpl-rpm.el
View file

@ -1,6 +1,6 @@
;;; pcmpl-rpm.el --- functions for dealing with rpm completions
;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
;; Copyright (C) 1999-2012 Free Software Foundation, Inc.
;; Package: pcomplete
@ -29,6 +29,13 @@
;; Functions:
;; FIXME rpm -qa can be slow, so:
;; Adding --nodigest --nosignature is MUCH faster.
;; (Probably need to test --help for those options though.)
;; Consider caching the result (cf woman).
;; Consider printing an explanatory message before running -qa.
;;
;; Seems pointless for this to be a defsubst.
(defsubst pcmpl-rpm-packages ()
(split-string (pcomplete-process-result "rpm" "-q" "-a")))
@ -92,6 +99,7 @@
'("--changelog"
"--dbpath"
"--dump"
"--file"
"--ftpport" ;nyi for the next four
"--ftpproxy"
"--httpport"
@ -112,6 +120,8 @@
(pcomplete-here*))
((pcomplete-test "--rcfile")
(pcomplete-here* (pcomplete-entries)))
((pcomplete-test "--file")
(pcomplete-here* (pcomplete-entries)))
((pcomplete-test "--root")
(pcomplete-here* (pcomplete-dirs)))
((pcomplete-test "--scripts")
@ -129,7 +139,9 @@
(pcomplete-opt "af.p(pcmpl-rpm-files)ilsdcvR")
(if (pcomplete-test "-[^-]*p" 'first 1)
(pcomplete-here (pcmpl-rpm-files))
(pcomplete-here (pcmpl-rpm-packages))))))
(if (pcomplete-test "-[^-]*f" 'first 1)
(pcomplete-here* (pcomplete-entries))
(pcomplete-here (pcmpl-rpm-packages)))))))
((pcomplete-test "--pipe")
(pcomplete-here* (funcall pcomplete-command-completion-function)))
((pcomplete-test "--rmsource")