diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2008-10-23 22:09:09 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2008-10-23 22:09:09 +0000 |
commit | 1258fedec4c20f9edec4c01ad7d7fffa4b1437b6 (patch) | |
tree | 75630938d307664be90fadba31bd597fc0b66602 /lisp/pcmpl-rpm.el | |
parent | 84353206b958d143ad0f940c246fc030172b231a (diff) | |
download | emacs-1258fedec4c20f9edec4c01ad7d7fffa4b1437b6.tar.gz |
(pcomplete/rpm): Make "rpm -qp" use file completion.
Diffstat (limited to 'lisp/pcmpl-rpm.el')
-rw-r--r-- | lisp/pcmpl-rpm.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el index 99e42e87edd..19dca7564a5 100644 --- a/lisp/pcmpl-rpm.el +++ b/lisp/pcmpl-rpm.el @@ -135,7 +135,9 @@ You can use \\[report-emacs-bug] to do so." (pcmpl-rpm-all-query "--requires"))))) (if (pcomplete-match "^-" 0) (pcomplete-opt "af.p(pcmpl-rpm-files)ilsdcvR") - (pcomplete-here (pcmpl-rpm-packages))))) + (if (pcomplete-test "-[^-]*p" 'first 1) + (pcomplete-here (pcmpl-rpm-files)) + (pcomplete-here (pcmpl-rpm-packages)))))) ((pcomplete-test "--pipe") (pcomplete-here* (funcall pcomplete-command-completion-function))) ((pcomplete-test "--rmsource") |