[elpa] externals/debbugs d189263 054/311: * debbugs.el (debbugs-get-bugs): Weaken syntax for packages (and

[Stefan Monnier]

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

    * debbugs.el (debbugs-get-bugs): Weaken syntax for packages (and
    severities and tags).
---
 ChangeLog  | 4 ++--
 debbugs.el | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0a20ff5..ea3da8b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,7 @@
 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.
+       * debbugs.el (debbugs-get-bugs): Weaken syntax for packages (and
+       severities and tags).  Fix error messages.
 
 2011-07-12  Michael Albinus  <michael.albinus@gmx.de>
 
diff --git a/debbugs.el b/debbugs.el
index 87134f1..ed089dc 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -144,7 +144,7 @@ Example:
       (case key
        ((:package :severity :tag)
         ;; Value shall be one word.
-        (if (string-match "\\`[-A-Za-z]+\\'" val)
+        (if (string-match "\\`\\S-+\\'" val)
             (setq vec (vconcat vec (list val)))
           (error "Wrong %s: %s" (substring (symbol-name key) 1) val)))
        ;; Value is an email address.