From 3c2ef9d8f8aa0da8dc0c2d8514a52b52ec36ed9b Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 4 Oct 2013 21:12:08 +0200 Subject: [PATCH] * org-debbugs.el (org-debbugs-search): Accept empty phrase. Add keyword "author". (org-debbugs-show-next-reports): Make "Next bugs" an own entry. --- contrib/lisp/org-debbugs.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/contrib/lisp/org-debbugs.el b/contrib/lisp/org-debbugs.el index fe5430e..9ab805e 100644 --- a/contrib/lisp/org-debbugs.el +++ b/contrib/lisp/org-debbugs.el @@ -144,16 +144,14 @@ returned." ;; Check for the phrase. (setq phrase (read-string debbugs-gnu-phrase-prompt)) - (if (zerop (length phrase)) - (setq phrase nil) - (add-to-list 'debbugs-gnu-current-query (cons 'phrase phrase))) + (add-to-list 'debbugs-gnu-current-query (cons 'phrase phrase)) ;; The other queries. (catch :finished (while t (setq key (completing-read "Enter attribute: " - '("severity" "package" "tags" "submitter" + '("severity" "package" "tags" "submitter" "author" "subject" "status") nil t)) (cond @@ -178,7 +176,8 @@ returned." (add-to-list 'debbugs-gnu-current-query (cons (intern key) val1)))) - ((equal key "submitter") + ((member key '("submitter" "author")) + (when (equal key "author") (setq key "@author")) (setq val1 (read-string "Enter email address: ")) (when (not (zerop (length val1))) (add-to-list @@ -405,7 +404,7 @@ returned." (goto-char (point-max)) (insert (format - "[[elisp:(org-debbugs-show-next-reports %s)][Next bugs]]\n" + "* [[elisp:(org-debbugs-show-next-reports %s)][Next bugs]]\n" hits)))))) (defconst org-debbugs-mode-map -- 1.8.1.2