[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 5521daf 2/3: Minor cleanup in debbugs-gnu.el
From: |
Michael Albinus |
Subject: |
[elpa] master 5521daf 2/3: Minor cleanup in debbugs-gnu.el |
Date: |
Tue, 2 Apr 2019 04:30:31 -0400 (EDT) |
branch: master
commit 5521daff096c4db3f6a1b9f72852365f271f75cf
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
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".
---
packages/debbugs/debbugs-gnu.el | 23 ++++++++++++++++-------
1 file changed, 16 insertions(+), 7 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 33860c2..db52d25 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/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\\)address@hidden"))
+ (let ((bugnum-re
+ "\\([0-9]+\\)\\(?:-done\\)address@hidden"))
(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 ?- ?+)