[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/debbugs 6a865a3 191/311: Improve debbugs-gnu-search
From: |
Stefan Monnier |
Subject: |
[elpa] externals/debbugs 6a865a3 191/311: Improve debbugs-gnu-search |
Date: |
Sun, 29 Nov 2020 18:42:09 -0500 (EST) |
branch: externals/debbugs
commit 6a865a315ffc0843162377cb60a21b9ca5d47aaa
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
Improve debbugs-gnu-search
* packages/debbugs/debbugs-gnu.el (debbugs-gnu-search):
Use `author' for phrase based search, `status' for attribute-based
search. Fix allowed values for `status' search.
* packages/debbugs/debbugs.el (debbugs-search-est): Fix docstring.
Quote keys with apostroph in order to handle "@" properly in
Debbugs::SOAP Perl module. Make sharper test for `submitter' and
`@author'.
---
debbugs-gnu.el | 16 ++++++++++------
debbugs.el | 15 +++++++--------
2 files changed, 17 insertions(+), 14 deletions(-)
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index dd1fe33..6cf8f34 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -379,10 +379,11 @@ marked as \"client-side filter\"."
(setq key (completing-read
"Enter attribute: "
(if phrase
- '("severity" "package" "tags" "submitter" "date"
- "subject" "status")
- '("severity" "package" "archive" "src" "tag"
+ '("severity" "package" "tags"
+ "author" "date" "subject")
+ '("severity" "package" "archive" "src" "status" "tag"
"owner" "submitter" "maint" "correspondent"
+ ;; Client-side queries.
"date" "log_modified" "last_modified"
"found_date" "fixed_date" "unarchived"
"subject" "done" "forwarded" "msgid" "summary"))
@@ -413,16 +414,19 @@ marked as \"client-side filter\"."
(add-to-list
'debbugs-gnu-current-query (cons (intern key) val1))))
- ((member key '("owner" "submitter" "maint" "correspondent"))
+ ((member
+ key '("author" "owner" "submitter" "maint" "correspondent"))
(setq val1 (read-string "Enter email address: "))
(when (not (zerop (length val1)))
(add-to-list
- 'debbugs-gnu-current-query (cons (intern key) val1))))
+ 'debbugs-gnu-current-query
+ (cons (intern (if (equal key "author") "@author" key)) val1))))
((equal key "status")
(setq
val1
- (completing-read "Enter status: " '("done" "forwarded" "open")))
+ (completing-read
+ "Enter status: " '("pending" "forwarded" "fixed" "done")))
(when (not (zerop (length val1)))
(add-to-list
'debbugs-gnu-current-query (cons (intern key) val1))))
diff --git a/debbugs.el b/debbugs.el
index 422a775..8efeddb 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -565,17 +565,15 @@ The following conditions are possible:
ATTRIBUTE is one of the following keywords:
- :status -- Status of bug. Valid values are \"done\",
- \"forwarded\" and \"open\".
-
:subject, :@title -- The subject of a message or the title of
the bug, a string.
:date, :@cdate -- The submission or modification dates of a
message, a number.
- :submitter, :@author -- The email address of the submitter of a
- bug or the author of a message belonging to this bug, a string.
+ :@author -- The email address of the author of a message
+ belonging to this bug, a string. It may be different than
+ the email of the person submitting the bug.
The special email address \"me\" is used as pattern, replaced
with `user-mail-address'.
@@ -699,7 +697,7 @@ Examples:
(setq kw (pop elt))
(unless (keywordp kw)
(error "Wrong keyword: %s" kw))
- (setq key (substring (symbol-name kw) 1))
+ (setq key (format "'%s'" (substring (symbol-name kw) 1)))
(cl-case kw
;; Phrase condition.
(:phrase
@@ -724,8 +722,9 @@ Examples:
;; Attribute condition.
((:submitter :@author)
- ;; It shouldn't happen in a phrase condition.
- (if phrase-cond
+ ;; It shouldn't happen.
+ (if (or (and (eq kw :submitter) phrase-cond)
+ (and (eq kw :@author) attr-cond))
(error "Wrong keyword: %s" kw))
(if (not (stringp (car elt)))
(setq vec (vconcat vec (list key "")))
- [elpa] externals/debbugs 2ea5f85 154/311: Retrieve debbugs data in several chunks, sequentially, (continued)
- [elpa] externals/debbugs 2ea5f85 154/311: Retrieve debbugs data in several chunks, sequentially, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 2c83d55 156/311: Touch up the automatic patch applying logic, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 7b0b168 159/311: debbugs code cleanup, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 5691679 162/311: Activate `soap-invoke-async' in debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 6ae1bfb 163/311: Improvement on debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 6526f6a 166/311: Further improvements to debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs ad0bf48 167/311: Release debbugs 0.9, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs eb4259e 172/311: * packages/debbugs/debbugs-gnu.el (debbugs-gnu-stale): Fix docstring., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs b8ffa5f 173/311: Fix the "exempt" marker, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs b50c3fe 178/311: Decode xsd:base64Binary values in debbugs.el, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 6a865a3 191/311: Improve debbugs-gnu-search,
Stefan Monnier <=
- [elpa] externals/debbugs 5440e20 185/311: Allow the "C" command from debbugs mode to work, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 0246d07 194/311: * packages/debbugs/debbugs-gnu.el (debbugs-gnu-default-packages): Add "hyperbole"., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 9782850 198/311: Release debbugs 0.9.7, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 3939b8d 195/311: Various changes in debbugs-gnu, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 4a7a8d8 182/311: Add a new command debbugs-gnu-patches, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 6c4477e 188/311: Allow inclusing the closed bugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 5aea250 186/311: Fix last checkin, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 60502ec 193/311: Release debbugs 0.9.6., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs b816a36 192/311: Further work on debbugs-gnu-search, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs d8ca060 200/311: Improve debbugs menu and buffer name, Stefan Monnier, 2020/11/29