[Emacs-diffs] /srv/bzr/emacs/trunk r108683: Improve pcmpl-rpm-query-options custom type

[Glenn Morris]

------------------------------------------------------------
revno: 108683
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2012-06-22 09:00:34 -0700
message:
  Improve pcmpl-rpm-query-options custom type
modified:
  lisp/pcmpl-rpm.el

=== modified file 'lisp/pcmpl-rpm.el'
--- a/lisp/pcmpl-rpm.el 2012-06-22 07:38:26 +0000
+++ b/lisp/pcmpl-rpm.el 2012-06-22 16:00:34 +0000
@@ -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 (?).