[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master c36cda1: Tweak minor problem in debbugs.el
From: |
Michael Albinus |
Subject: |
[elpa] master c36cda1: Tweak minor problem in debbugs.el |
Date: |
Fri, 20 Oct 2017 15:22:55 -0400 (EDT) |
branch: master
commit c36cda1e25e4cf95647ad83514207130afeccb18
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
Tweak minor problem in debbugs.el
* packages/debbugs/debbugs.el (debbugs-get-status): "mergedwith",
"blocks" and "blockedby" can also be single numbers.
---
packages/debbugs/debbugs.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index ca0a53b..82bab07 100644
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master c36cda1: Tweak minor problem in debbugs.el,
Michael Albinus <=