From b57b344b51c06239b4f3584f9ab946dd48c60bb2 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 22 Jun 2012 09:00:34 -0700 Subject: [PATCH] Improve pcmpl-rpm-query-options custom type --- lisp/pcmpl-rpm.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/pcmpl-rpm.el b/lisp/pcmpl-rpm.el index 12fce363804..4afda82ff91 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 (?). -- 2.39.5