(pcomplete/rpm): Make "rpm -qp" use file completion.

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")