summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
0aea959)
* packages/debbugs/debbugs-gnu.el (debbugs-gnu-suppress-closed):
Set :version to "25.1".
(debbugs-gnu-search): Allow "status" for client-side filter.
* packages/debbugs/debbugs.el (debbugs-get-bugs): Fix docstring.
Use proper values for :status.
(debbugs-get-status): Fix docstring.
(debbugs-search-est): Do not quote keys with apostroph, it doesn't
work in Emacs 25.1. Use proper values for :status.
"If non-nil, don't show closed bugs."
:group 'debbugs-gnu
:type 'boolean
"If non-nil, don't show closed bugs."
:group 'debbugs-gnu
:type 'boolean
(defconst debbugs-gnu-all-severities
(mapcar 'cadr (cdr (get 'debbugs-gnu-default-severities 'custom-type)))
(defconst debbugs-gnu-all-severities
(mapcar 'cadr (cdr (get 'debbugs-gnu-default-severities 'custom-type)))
"Enter attribute: "
(if phrase
'("severity" "package" "tags"
"Enter attribute: "
(if phrase
'("severity" "package" "tags"
- "author" "date" "subject")
+ "author" "date" "subject"
+ ;; Client-side queries.
+ "status")
'("severity" "package" "archive" "src" "status" "tag"
"owner" "submitter" "maint" "correspondent"
;; Client-side queries.
'("severity" "package" "archive" "src" "status" "tag"
"owner" "submitter" "maint" "correspondent"
;; Client-side queries.
'debbugs-gnu-current-query
(cons (intern (if (equal key "author") "@author" key)) val1))))
'debbugs-gnu-current-query
(cons (intern (if (equal key "author") "@author" key)) val1))))
+ ;; Client-side filters.
((equal key "status")
(setq
val1
(completing-read
((equal key "status")
(setq
val1
(completing-read
- "Enter status: " '("pending" "forwarded" "fixed" "done")))
+ (format "Enter status%s: "
+ (if (null phrase) "" " (client-side filter)"))
+ '("pending" "forwarded" "fixed" "done")))
(when (not (zerop (length val1)))
(when (not (zerop (length val1)))
- (add-to-list
- 'debbugs-gnu-current-query (cons (intern key) val1))))
+ (if (null phrase)
+ (add-to-list
+ 'debbugs-gnu-current-query (cons (intern key) val1))
+ (add-to-list
+ 'debbugs-gnu-current-filter (cons 'pending val1)))))
- ;; Client-side filters.
((member key '("date" "log_modified" "last_modified"
"found_date" "fixed_date" "unarchived"))
(setq val1
((member key '("date" "log_modified" "last_modified"
"found_date" "fixed_date" "unarchived"))
(setq val1
'debbugs-gnu-current-query 'debbugs-gnu-current-filter)
(cons (intern key) (cons val1 val2)))))
'debbugs-gnu-current-query 'debbugs-gnu-current-filter)
(cons (intern key) (cons val1 val2)))))
+ ;; "subject", "done", "forwarded", "msgid", "summary".
((not (zerop (length key)))
(setq val1
(funcall
(if phrase 'read-string 'read-regexp)
((not (zerop (length key)))
(setq val1
(funcall
(if phrase 'read-string 'read-regexp)
- (format "Enter %s%s"
- key (if phrase ": " " (client-side filter)"))))
+ (format "Enter %s%s: "
+ key (if phrase "" " (client-side filter)"))))
(when (not (zerop (length val1)))
(add-to-list
(if phrase
(when (not (zerop (length val1)))
(add-to-list
(if phrase
the value of field `affects' in bug's status. The returned bugs
do not necessary belong to this package.
the value of field `affects' in bug's status. The returned bugs
do not necessary belong to this package.
- :status -- Status of bug. Valid values are \"done\",
- \"forwarded\" and \"open\".
+ :status -- Status of bug. Valid values are \"pending\",
+ \"forwarded\", \"fixed\" and \"done\".
:archive -- A keyword to filter for bugs which are already
archived, or not. Valid values are \"0\" (not archived),
:archive -- A keyword to filter for bugs which are already
archived, or not. Valid values are \"0\" (not archived),
(setq vec (vconcat vec (list key val))))
(error "Wrong %s: %s" key val)))
(:status
(setq vec (vconcat vec (list key val))))
(error "Wrong %s: %s" key val)))
(:status
- ;; Possible values: "done", "forwarded" and "open"
- (if (string-match "\\`\\(done\\|forwarded\\|open\\)\\'" val)
+ ;; Possible values: "pending", "forwarded", "fixed" and "done".
+ (if (string-match "\\`\\(pending\\|forwarded\\|fixed\\|done\\)\\'" val)
(setq vec (vconcat vec (list key val)))
(error "Wrong %s: %s" key val)))
(:archive
(setq vec (vconcat vec (list key val)))
(error "Wrong %s: %s" key val)))
(:archive
can be \"fixed\", \"notabug\", \"wontfix\", \"unreproducible\",
\"moreinfo\" or \"patch\".
can be \"fixed\", \"notabug\", \"wontfix\", \"unreproducible\",
\"moreinfo\" or \"patch\".
- `pending': The string \"pending\", \"forwarded\" or \"done\".
+ `pending': The string \"pending\", \"forwarded\", \"fixed\" or \"done\".
`subject': Subject/Title of the bugreport.
`subject': Subject/Title of the bugreport.
(setq kw (pop elt))
(unless (keywordp kw)
(error "Wrong keyword: %s" kw))
(setq kw (pop elt))
(unless (keywordp kw)
(error "Wrong keyword: %s" kw))
- (setq key (format "'%s'" (substring (symbol-name kw) 1)))
+ (setq key (substring (symbol-name kw) 1))
(cl-case kw
;; Phrase condition.
(:phrase
(cl-case kw
;; Phrase condition.
(:phrase
(unless (member x val)
(setq val (append val (list x))))))
(setq vec
(unless (member x val)
(setq val (append val (list x))))))
(setq vec
- (vconcat vec (list key (mapconcat #'identity val " "))))))
+ (vconcat
+ vec (list key (mapconcat #'identity val " "))))))
(:status
;; It shouldn't happen in a phrase condition.
(:status
;; It shouldn't happen in a phrase condition.
(setq attr-cond t)
(if (not (stringp (car elt)))
(setq vec (vconcat vec (list key "")))
(setq attr-cond t)
(if (not (stringp (car elt)))
(setq vec (vconcat vec (list key "")))
- ;; Possible values: "done", "forwarded" and "open"
+ ;; Possible values: "pending", "forwarded", "fixed" and "done".
(while (and (stringp (car elt))
(string-match
(while (and (stringp (car elt))
(string-match
- "\\`\\(done\\|forwarded\\|open\\)\\'" (car elt)))
+ "\\`\\(pending\\|forwarded\\|fixed\\|done\\)\\'"
+ (car elt)))
(let ((x (pop elt)))
(unless (member x val)
(setq val (append val (list x))))))
(setq vec
(let ((x (pop elt)))
(unless (member x val)
(setq val (append val (list x))))))
(setq vec
- (vconcat vec (list key (mapconcat #'identity val " "))))))
+ (vconcat
+ vec (list key (mapconcat #'identity val " "))))))
((:subject :package :tags :severity :@title)
;; It shouldn't happen in a phrase condition.
((:subject :package :tags :severity :@title)
;; It shouldn't happen in a phrase condition.
(unless (member x val)
(setq val (append val (list x))))))
(setq vec
(unless (member x val)
(setq val (append val (list x))))))
(setq vec
- (vconcat vec (list key (mapconcat #'identity val " "))))))
+ (vconcat
+ vec (list key (mapconcat #'identity val " "))))))
((:date :@cdate)
;; It shouldn't happen in a phrase condition.
((:date :@cdate)
;; It shouldn't happen in a phrase condition.
(setq val (append val (list x))))))
(setq vec
(vconcat
(setq val (append val (list x))))))
(setq vec
(vconcat
- vec (list key (mapconcat #'number-to-string val " "))))))
+ vec
+ (list key (mapconcat #'number-to-string val " "))))))
((:operator :order)
;; It shouldn't happen in a phrase condition.
((:operator :order)
;; It shouldn't happen in a phrase condition.