[elpa] externals/debbugs e2ef75a 032/311: Make the "g" command work.

[Stefan Monnier]

branch: externals/debbugs
commit e2ef75afe76f2529b780a2f5cc6b9696676679d9
Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
Commit: Lars Magne Ingebrigtsen <larsi@gnus.org>

    Make the "g" command work.
    
    I apparently forgot to save the buffer before I checked in last time.
---
 debbugs-gnu.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index b63eaa6..1b361ae 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -124,6 +124,8 @@
                             :bug-ids ids)
                            nil))))
 
+(defvar debbugs-current-widget nil)
+
 (defun debbugs-show-reports (widget widgets)
   "Show bug reports as given in WIDGET property :bug-ids."
   (pop-to-buffer (get-buffer-create (widget-get widget :buffer-name)))
@@ -223,9 +225,9 @@
       (widget-setup))
 
     (set-buffer-modified-p nil)
-    (goto-char (point-min))
-    (put-text-property (point) (1+ (point)) 'debbugs-current-widget
-                      (list widget widgets))))
+    (set (make-local-variable 'debbugs-current-widget)
+        (list widget widgets))
+    (goto-char (point-min))))
 
 (defvar debbugs-mode-map
   (let ((map (make-sparse-keymap)))
@@ -241,9 +243,7 @@
 (defun debbugs-rescan ()
   "Rescan the current set of bug reports."
   (interactive)
-  (apply 'debbugs-show-reports
-        (get-text-property (point-min)
-                           'debbugs-current-widget)))
+  (apply 'debbugs-show-reports debbugs-current-widget))
 
 (defvar debbugs-sort-state 'number)