From: Glenn Morris <rgm@gnu.org>
Date: Fri, 22 Jun 2012 16:00:34 +0000 (-0700)
Subject: Improve pcmpl-rpm-query-options custom type
X-Git-Tag: emacs-24.2.90~1199^2~404
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b57b344b51c06239b4f3584f9ab946dd48c60bb2;p=emacs.git

Improve pcmpl-rpm-query-options custom type
---

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 (?).