branch: externals/debbugs
commit d8e01997da8d354a338415c1148df9ad45a114e5
Author: Michael Albinus <[email protected]>
Commit: Michael Albinus <[email protected]>
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)))))
