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

1258fede · Chong Yidong · 84353206 · 1258fede
Commit 1258fede authored Oct 23, 2008 by Chong Yidong
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/pcmpl-rpm.el lisp/pcmpl-rpm.el +3 -1

No files found.
--- 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")