diff options
| author | Glenn Morris <[email protected]> | 2012-06-22 09:00:34 -0700 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2012-06-22 09:00:34 -0700 |
| commit | b57b344b51c06239b4f3584f9ab946dd48c60bb2 (patch) | |
| tree | 1e7513c58774fb5eb0505f44bd5fe29b4e430247 | |
| parent | 76386c5a9856e58e97194ff7d128062afb36241d (diff) | |
Improve pcmpl-rpm-query-options custom type
| -rw-r--r-- | lisp/pcmpl-rpm.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el index 12fce36380..4afda82ff9 100644 --- a/lisp/pcmpl-rpm.el +++ b/lisp/pcmpl-rpm.el @@ -43,9 +43,11 @@ (if (search-forward "--nosignature " nil t) (push "--nosignature" 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" - :type '(repeat string) + :type '(choice (const :tag "No options" nil) + (string :tag "Single option") + (repeat :tag "List of options" string)) :group 'pcmpl-rpm) (defcustom pcmpl-rpm-cache t @@ -78,7 +80,9 @@ pcmpl-rpm-packages (split-string (apply 'pcomplete-process-result "rpm" (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? ;; I don't think it would speed it up at all (?). |