branch: master
commit 07ecf407f8e64d1f01f22ee331ca3bdda31d62ad
Author: Michael Albinus <michael.albi...@gmx.de>
Commit: Michael Albinus <michael.albi...@gmx.de>
* packages/debbugs/debbugs-gnu.el (debbugs-gnu, debbugs-gnu-bugs): Send
final
message after completion.
---
packages/debbugs/debbugs-gnu.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 515129b..9639a0c 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -654,7 +654,9 @@ marked as \"client-side filter\"."
;; Reset query, filter and suppress.
(setq debbugs-gnu-current-query nil
debbugs-gnu-current-filter nil
- debbugs-gnu-current-suppress nil)))
+ debbugs-gnu-current-suppress nil)
+ (when (called-interactively-p 'interactive)
+ (message "Query finished"))))
(defun debbugs-gnu-get-bugs (query)
"Retrieve bug numbers from debbugs.gnu.org according search criteria."
@@ -2146,7 +2148,9 @@ or bug ranges, with default to
`debbugs-gnu-default-bug-number-list'."
(add-to-list 'debbugs-gnu-current-query (cons 'bugs bugs))
;; We do not suppress bugs requested explicitely.
(setq debbugs-gnu-current-suppress nil)
- (debbugs-gnu nil))
+ (debbugs-gnu nil)
+ (when (called-interactively-p 'interactive)
+ (message "Retrieving bugs finished")))
(defcustom debbugs-gnu-trunk-directory "~/src/emacs/trunk/"
"The directory where the main source tree lives."
