[elpa] externals/debbugs 1883e24 053/311: * debbugs.el (debbugs-get-bugs): Extend syntax for packages (and

[Stefan Monnier]

branch: externals/debbugs
commit 1883e24875170abc389b4d26a62578eaf28e36bd
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * debbugs.el (debbugs-get-bugs): Extend syntax for packages (and
    severities and tags) by "-".  Fix error messages.
---
 ChangeLog  |  5 +++++
 debbugs.el | 10 +++++-----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 5479f36..0a20ff5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-13  Michael Albinus  <michael.albinus@gmx.de>
+
+       * debbugs.el (debbugs-get-bugs): Extend syntax for packages (and
+       severities and tags) by "-".  Fix error messages.
+
 2011-07-12  Michael Albinus  <michael.albinus@gmx.de>
 
        * debbugs-gnu.el (debbugs-gnu-get-bugs): Reinsert sorting of ids.
diff --git a/debbugs.el b/debbugs.el
index eda23ca..87134f1 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -144,9 +144,9 @@ Example:
       (case key
        ((:package :severity :tag)
         ;; Value shall be one word.
-        (if (string-match "\\`[A-Za-z]+\\'" val)
+        (if (string-match "\\`[-A-Za-z]+\\'" val)
             (setq vec (vconcat vec (list val)))
-          (error "Wrong %s: %s" (car (last vec)) val)))
+          (error "Wrong %s: %s" (substring (symbol-name key) 1) val)))
        ;; Value is an email address.
        ((:owner :submitter)
         (if (string-match "\\`\\S-+\\'" val)
@@ -156,13 +156,13 @@ Example:
               (when (string-match "<\\(.+\\)>" val)
                 (setq val (match-string 1 val)))
               (setq vec (vconcat vec (list val))))
-          (error "Wrong %s: %s" (car (last vec)) val)))
+          (error "Wrong %s: %s" (substring (symbol-name key) 1) val)))
        (:archive
         ;; Value is `0' or `1' or `both'.
         (if (string-match "\\`\\(0\\|1\\|both\\)\\'" val)
             (setq vec (vconcat vec (list val)))
-          (error "Wrong %s: %s" (car (last vec)) val)))
-       (t (error "Unknown key: %s" (car (last vec))))))
+          (error "Wrong %s: %s" (substring (symbol-name key) 1) val)))
+       (t (error "Unknown key: %s" (substring (symbol-name key) 1)))))
 
     (unless (null query)
       (error "Unknown key: %s" (car query)))