masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 11:23:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Improve pcmpl-rpm-query-options custom type

Browse source
This commit is contained in:
Glenn Morris 2012-06-22 09:00:34 -07:00
parent 76386c5a98
commit b57b344b51
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/pcmpl-rpm.el
View file

@ -43,9 +43,11 @@
(if (search-forward "--nosignature " nil t) (if (search-forward "--nosignature " nil t)
(push "--nosignature" opts)))) (push "--nosignature" opts))))
opts) opts)
"List of extra options to add to an rpm query command." "String, or list of strings, with extra options for an rpm query command."
:version "24.2" :version "24.2"
:type '(repeat string) :type '(choice (const :tag "No options" nil)
(string :tag "Single option")
(repeat :tag "List of options" string))
:group 'pcmpl-rpm) :group 'pcmpl-rpm)
(defcustom pcmpl-rpm-cache t (defcustom pcmpl-rpm-cache t
@ -78,7 +80,9 @@
pcmpl-rpm-packages pcmpl-rpm-packages
(split-string (apply 'pcomplete-process-result "rpm" (split-string (apply 'pcomplete-process-result "rpm"
(append '("-q" "-a") (append '("-q" "-a")
pcmpl-rpm-query-options)))))) (if (stringp pcmpl-rpm-query-options)
(list pcmpl-rpm-query-options)
pcmpl-rpm-query-options)))))))
;; Should this use pcmpl-rpm-query-options? ;; Should this use pcmpl-rpm-query-options?
;; I don't think it would speed it up at all (?). ;; I don't think it would speed it up at all (?).