Mercurial > emacs

comparison lisp/pcmpl-rpm.el @ 99089:d78006bea879

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pcomplete/rpm): Make "rpm -qp" use file completion.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 23 Oct 2008 22:09:09 +0000
parents c61c4d079bc9
children a9dc0e7c3f2b
comparison
equal deleted inserted replaced
99088:df7905beb96c 99089:d78006bea879
133 ((pcomplete-test "--whatrequires") 133 ((pcomplete-test "--whatrequires")
134 (pcomplete-here* 134 (pcomplete-here*
135 (pcmpl-rpm-all-query "--requires"))))) 135 (pcmpl-rpm-all-query "--requires")))))
136 (if (pcomplete-match "^-" 0) 136 (if (pcomplete-match "^-" 0)
137 (pcomplete-opt "af.p(pcmpl-rpm-files)ilsdcvR") 137 (pcomplete-opt "af.p(pcmpl-rpm-files)ilsdcvR")
138 (pcomplete-here (pcmpl-rpm-packages))))) 138 (if (pcomplete-test "-[^-]*p" 'first 1)
139 (pcomplete-here (pcmpl-rpm-files))
140 (pcomplete-here (pcmpl-rpm-packages))))))
139 ((pcomplete-test "--pipe") 141 ((pcomplete-test "--pipe")
140 (pcomplete-here* (funcall pcomplete-command-completion-function))) 142 (pcomplete-here* (funcall pcomplete-command-completion-function)))
141 ((pcomplete-test "--rmsource") 143 ((pcomplete-test "--rmsource")
142 (pcomplete-here* (pcomplete-entries)) 144 (pcomplete-here* (pcomplete-entries))
143 (throw 'pcomplete-completions nil)) 145 (throw 'pcomplete-completions nil))