[elpa] externals/debbugs d8e0199 226/311: Tweak minor problem in debbugs.el

[Stefan Monnier]

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

    Tweak minor problem in debbugs.el
    
    * packages/debbugs/debbugs.el (debbugs-get-status): "mergedwith",
    "blocks" and "blockedby" can also be single numbers.
---
 debbugs.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/debbugs.el b/debbugs.el
index ca0a53b..82bab07 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -452,10 +452,12 @@ Example:
            (setcdr y (mapcar
                       (lambda (z) (if (numberp z) (number-to-string z) z))
                       (cdr y))))
-         ;; "mergedwith", "blocks" and "blockedby are strings,
-         ;; containing blank separated bug numbers.
+         ;; "mergedwith", "blocks" and "blockedby" are either numbers
+         ;; or strings, containing blank separated bug numbers.
          (dolist (attribute '(mergedwith blocks blockedby))
            (setq y (assoc attribute (cdr (assoc 'value x))))
+           (when (numberp (cdr y))
+             (setcdr y (list (cdr y))))
            (when (stringp (cdr y))
              (setcdr y (mapcar
                         #'string-to-number (split-string (cdr y) " " t)))))