branch: externals/debbugs
commit 63e5cf5965858f9733c9b4a147851a955268aa5f
Author: Lars Magne Ingebrigtsen <[email protected]>
Commit: Lars Magne Ingebrigtsen <[email protected]>
* debbugs-gnu.el (debbugs-rescan): New command and keystroke.
---
ChangeLog | 4 ++++
debbugs-gnu.el | 12 +++++++++++-
2 files changed, 15 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
index f179171..b205c1e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-03 Lars Magne Ingebrigtsen <[email protected]>
+
+ * debbugs-gnu.el (debbugs-rescan): New command and keystroke.
+
2011-07-03 Michael Albinus <[email protected]>
* debbugs-gnu.el (debbugs-widget-map): Add [mouse-1] and [mouse-2].
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index a2dcb89..b63eaa6 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -223,7 +223,9 @@
(widget-setup))
(set-buffer-modified-p nil)
- (goto-char (point-min))))
+ (goto-char (point-min))
+ (put-text-property (point) (1+ (point)) 'debbugs-current-widget
+ (list widget widgets))))
(defvar debbugs-mode-map
(let ((map (make-sparse-keymap)))
@@ -233,8 +235,16 @@
(define-key map "q" 'kill-buffer)
(define-key map "s" 'debbugs-toggle-sort)
(define-key map "d" 'debbugs-display-status)
+ (define-key map "g" 'debbugs-rescan)
map))
+(defun debbugs-rescan ()
+ "Rescan the current set of bug reports."
+ (interactive)
+ (apply 'debbugs-show-reports
+ (get-text-property (point-min)
+ 'debbugs-current-widget)))
+
(defvar debbugs-sort-state 'number)
(defun debbugs-mode ()
