[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/debbugs e27f085 124/311: * packages/debbugs/debbugs-org
From: |
Stefan Monnier |
Subject: |
[elpa] externals/debbugs e27f085 124/311: * packages/debbugs/debbugs-org.el: Miscellanous cleanups. |
Date: |
Sun, 29 Nov 2020 18:41:54 -0500 (EST) |
branch: externals/debbugs
commit e27f085e251a3ecde4b72a4fc6447b01659c871a
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* packages/debbugs/debbugs-org.el: Miscellanous cleanups.
(debbugs-org-search): Remove unused var `date-format'.
(debbugs-org-show-reports): Avoid add-to-list on local var.
* packages/debbugs/debbugs.el (debbugs-get-usertag, debbugs-search-est):
Avoid add-to-list on local var.
---
debbugs-org.el | 11 +++++------
debbugs.el | 20 ++++++++++++++------
2 files changed, 19 insertions(+), 12 deletions(-)
diff --git a/debbugs-org.el b/debbugs-org.el
index dfe8684..8a98aec 100644
--- a/debbugs-org.el
+++ b/debbugs-org.el
@@ -148,11 +148,10 @@ returned."
(interactive)
(unwind-protect
- (let ((date-format
"\\([[:digit:]]\\{4\\}\\)-\\([[:digit:]]\\{1,2\\}\\)-\\([[:digit:]]\\{1,2\\}\\)")
- key val1 val2 phrase severities packages archivedp)
+ ;; Check for the phrase.
+ (let ((phrase (read-string debbugs-gnu-phrase-prompt))
+ key val1 severities packages)
- ;; Check for the phrase.
- (setq phrase (read-string debbugs-gnu-phrase-prompt))
(add-to-list 'debbugs-gnu-current-query (cons 'phrase phrase))
;; The other queries.
@@ -320,10 +319,10 @@ returned."
;; Handle tags.
(when (string-match "^\\([0-9.]+\\); \\(.+\\)$" subject)
- (add-to-list 'tags (match-string 1 subject))
+ (let ((x (match-string 1 subject))) (pushnew x tags :test #'equal))
(setq subject (match-string 2 subject)))
(when archived
- (add-to-list 'tags "ARCHIVE"))
+ (pushnew "ARCHIVE" tags :test #'equal))
(setq tags
(mapcar
;; Replace all invalid TAG characters by "_".
diff --git a/debbugs.el b/debbugs.el
index 57c3ae0..725a394 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -372,12 +372,12 @@ Example:
(setq val user-mail-address))
(when (string-match "<\\(.+\\)>" val)
(setq val (match-string 1 val)))
- (add-to-list 'user val))
+ (pushnew val user :test #'equal))
(error "Wrong %s: %s" key val)))
((:tag)
;; Value shall be one word.
(if (string-match "\\`\\S-+\\'" val)
- (add-to-list 'tags val)
+ (pushnew val tags :test #'equal)
(error "Wrong %s: %s" key val)))
(t (error "Unknown key: %s" kw))))
@@ -593,7 +593,9 @@ Examples:
(setcar elt user-mail-address))
(when (string-match "<\\(.+\\)>" (car elt))
(setcar elt (match-string 1 (car elt))))
- (add-to-list 'val (pop elt) 'append))
+ (let ((x (pop elt)))
+ (unless (member x val)
+ (setq val (append val (list x))))))
(setq vec
(vconcat vec (list key (mapconcat 'identity val " "))))))
@@ -608,7 +610,9 @@ Examples:
(while (and (stringp (car elt))
(string-match
"\\`\\(done\\|forwarded\\|open\\)\\'" (car elt)))
- (add-to-list 'val (pop elt) 'append))
+ (let ((x (pop elt)))
+ (unless (member x val)
+ (setq val (append val (list x))))))
(setq vec
(vconcat vec (list key (mapconcat 'identity val " "))))))
@@ -621,7 +625,9 @@ Examples:
(setq vec (vconcat vec (list key "")))
;; Just a string.
(while (stringp (car elt))
- (add-to-list 'val (pop elt) 'append))
+ (let ((x (pop elt)))
+ (unless (member x val)
+ (setq val (append val (list x))))))
(setq vec
(vconcat vec (list key (mapconcat 'identity val " "))))))
@@ -634,7 +640,9 @@ Examples:
(setq vec (vconcat vec (list key "")))
;; Just a number.
(while (numberp (car elt))
- (add-to-list 'val (pop elt) 'append))
+ (let ((x (pop elt)))
+ (unless (member x val)
+ (setq val (append val (list x))))))
(setq vec
(vconcat
vec (list key (mapconcat 'number-to-string val " "))))))
- [elpa] externals/debbugs 4f825df 084/311: * debbugs-gnu.el (debbugs-gnu-default-severities). Add "serious" to, (continued)
- [elpa] externals/debbugs 4f825df 084/311: * debbugs-gnu.el (debbugs-gnu-default-severities). Add "serious" to, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 7a3f97a 085/311: Add implemented SOAP function "search_est"., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 4cc71d5 086/311: Add commands to narrow/widen the bug reports., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs e794c6c 104/311: Adapt copyright years., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 698e4c8 095/311: * debbugs.el (debbugs-get-usertag): Change parameters to a KEY-VALUE sequence., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 902baa4 106/311: Only keep the strictly necessary *-pkg.el files, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs d11276e 112/311: Update copyright years., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 399edb4 113/311: New command `debbugs-org-regenerate-status', Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 792d98f 116/311: * debbugs-org.el (debbugs-org-show-buffer-name): New defvar., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 37eba87 117/311: * debbugs-gnu.el (debbugs-gnu-default-packages): Add new packages., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs e27f085 124/311: * packages/debbugs/debbugs-org.el: Miscellanous cleanups.,
Stefan Monnier <=
- [elpa] externals/debbugs 6b87b3b 126/311: Update the debbugs tag face when switching it off, too, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 9136369 130/311: Add a lot of Emacs maintainer DWIM, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs da6a351 132/311: Handle blocked bugs in debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs f50bf5d 137/311: New file debbugs-reference.el, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs b021f3b 138/311: * debbugs-ug.texi (Minor Modes): New node., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 1883e24 053/311: * debbugs.el (debbugs-get-bugs): Extend syntax for packages (and, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs a40dc43 076/311: * debbugs-gnu.el (debbugs-gnu-phrase-prompt): New defconst., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 6f5d15b 078/311: (debbugs-gnu-show-reports): Increase the stale time to two weeks., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 220e57b 077/311: * debbugs-gnu.el (debbugs-gnu-show-reports): Only list merged bugs once., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs f919ced 094/311: Fix typo., Stefan Monnier, 2020/11/29