[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/debbugs 1022674 242/311: Minor cleanup in debbugs-gnu.e
From: |
Stefan Monnier |
Subject: |
[elpa] externals/debbugs 1022674 242/311: Minor cleanup in debbugs-gnu.el |
Date: |
Sun, 29 Nov 2020 18:42:21 -0500 (EST) |
branch: externals/debbugs
commit 1022674a4fbb688763de4f004a5ed3fa39b86a1e
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
Minor cleanup in debbugs-gnu.el
* packages/debbugs/debbugs-gnu.el: Reformat in order to fit 80
columns range.
(debbugs-gnu-make-control-message): Change prompt for being uniform.
Fix typo in "tags".
---
debbugs-gnu.el | 23 ++++++++++++++++-------
1 file changed, 16 insertions(+), 7 deletions(-)
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 33860c2..db52d25 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -409,7 +409,11 @@ marked as \"client-side filter\"."
(interactive)
(unwind-protect
- (let ((date-format
"\\([[:digit:]]\\{4\\}\\)-\\([[:digit:]]\\{1,2\\}\\)-\\([[:digit:]]\\{1,2\\}\\)")
+ (let ((date-format
+ (eval-when-compile
+ (concat"\\([[:digit:]]\\{4\\}\\)-"
+ "\\([[:digit:]]\\{1,2\\}\\)-"
+ "\\([[:digit:]]\\{1,2\\}\\)")))
key val1 val2 phrase severities packages archivedp)
;; Check for the phrase.
@@ -1541,7 +1545,8 @@ removed instead."
(list (debbugs-gnu-current-id t)
debbugs-gnu-bug-number ; Set on group entry.
(debbugs-gnu-guess-current-id)
- (let ((bugnum-re
"\\([0-9]+\\)\\(?:-done\\)?@debbugs.gnu.org"))
+ (let ((bugnum-re
+ "\\([0-9]+\\)\\(?:-done\\)?@debbugs.gnu.org"))
(when (derived-mode-p 'message-mode)
(save-excursion
(save-restriction
@@ -1551,7 +1556,8 @@ removed instead."
(string-to-number (match-string 1
addr))))
(let ((addr (message-fetch-field "cc")))
(and addr (string-match bugnum-re addr)
- (string-to-number (match-string 1
addr)))))))))))))
+ (string-to-number
+ (match-string 1 addr)))))))))))))
(defun debbugs-gnu-make-control-message (message bugid &optional reverse
buffer)
"Make a control message for the current bug report.
@@ -1578,8 +1584,8 @@ removed instead."
(default-id (car implicit-ids)))
(string-to-number
(completing-read (if default-id
- (format "Bug #ID (default %s): " default-id)
- "Bug #ID: ")
+ (format "Bug # (default %s): " default-id)
+ "Bug #: ")
implicit-ids
(lambda (s) (string-match-p "\\`[0-9]+\\'" s))
nil nil nil (car implicit-ids))))
@@ -1602,7 +1608,8 @@ removed instead."
1))
(`(,major ,minor ,_micro) ; Development version.
(format "%d.%d" major
- (if (member message '("notfixed" "found"
"notfound"))
+ (if (member
+ message '("notfixed" "found" "notfound"))
minor
(1+ minor))))
(`(,major ,minor) ; Release version.
@@ -1647,7 +1654,7 @@ removed instead."
((member message '("unarchive" "unmerge" "noowner" "notforwarded"))
(format "%s %d\n" message bugid))
((equal message "reopen")
- (format "reopen %d\ntag %d - fixed patch\n" bugid bugid))
+ (format "reopen %d\ntags %d - fixed patch\n" bugid bugid))
((member message '("merge" "forcemerge"))
(format
"%s %d %s\n" message bugid
@@ -1705,6 +1712,8 @@ removed instead."
debbugs-gnu-all-packages (list user-mail-address))
nil nil (car debbugs-gnu-default-packages))
bugid (read-string "User tag: ")))
+ ;; "patch", "wontfix", "moreinfo", "unreproducible", "notabug",
+ ;; "pending", "help", "security", "confirmed", "easy"
(t
(format "tags %d %c %s\n"
bugid (if reverse ?- ?+)
- [elpa] externals/debbugs 19c8f96 304/311: * debbugs-gnu.el (debbugs-gnu--parse-mail): Pacify byte compiler., (continued)
- [elpa] externals/debbugs 19c8f96 304/311: * debbugs-gnu.el (debbugs-gnu--parse-mail): Pacify byte compiler., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs f41daeb 300/311: Release debbugs 0.26, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 8fe8934 310/311: Really fix typo in previous debbugs-gnu change, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs c615e66 187/311: Bump version number, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs bcfcc95 135/311: * debbugs-gnu.el (top): Make byte compiler quiet., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs e91cc0a 183/311: Increase the Debbugs version number, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs a447400 204/311: Document debbugs-gnu-send-mail-function, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 4465f3c 216/311: debbugs-gnu.el: Add "26.1", Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 3f86ce3 218/311: Use "https" in debbugs bug URLs., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 722796f 221/311: Fix bug#25784 in debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 1022674 242/311: Minor cleanup in debbugs-gnu.el,
Stefan Monnier <=
- [elpa] externals/debbugs f10da96 247/311: Fix debbugs-gnu-announce-commit for ELPA bugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs c40d91c 241/311: * packages/debbugs/debbugs.el: Require Emacs 25.1., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs e234767 259/311: Don't insert two Summary lines in the commit message, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs dcb6956 262/311: * packages/debbugs/debbugs-ug.texi (Minor Mode): Show example of activation., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs c916195 270/311: * debbugs-gnu.el (debbugs-gnu-phrase-prompt): Small fix in help-echo., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 930b0dd 275/311: * packages/debbugs/debbugs-gnu.el (debbugs-gnu-rescan): New argument NOCACHE., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 84c56ad 280/311: Debbugs code cleanup, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 9639e41 287/311: Release debbugs 0.22, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs e200440 299/311: Debbugs code cleanup, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 0a2dd7d 308/311: Fix debbugs-gnu Subject setting when used directly from Gnus, Stefan Monnier, 2020/11/29