[elpa] externals/debbugs 3a253e9 044/311: (debbugs-toggle-tag): Save the list of tagged articles immediately.

[Stefan Monnier]

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

    (debbugs-toggle-tag): Save the list of tagged articles immediately.
    
    Waiting until exit is too brittle.
---
 ChangeLog      |  2 ++
 debbugs-gnu.el | 22 ++++++++--------------
 2 files changed, 10 insertions(+), 14 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c1aa135..b7be5e3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -19,6 +19,8 @@
        (debbugs-send-control-message): Allow reversing tags.
        (debbugs-summary-mode): Remove quiet@debbugs.gnu.org from the
        list, too.
+       (debbugs-toggle-tag): Save the list of tagged articles
+       immediately.  Waiting until exit is too brittle.
 
 2011-07-06  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index bc800bb..120d9e8 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -151,19 +151,12 @@
 
 (defun debbugs-dump-persistency-file ()
   "Function to store debbugs variables persistently."
-  (ignore-errors
-    (with-temp-buffer
-      (insert
-       ";; -*- emacs-lisp -*-\n"
-       ";; Debbugs tags connection history.  Don't change this file.\n\n"
-       (format "(setq debbugs-local-tags '%S)"
-              (sort (copy-sequence debbugs-local-tags) '<)))
-      (write-region
-       (point-min) (point-max) debbugs-persistency-file))))
-
-;; Save variables.
-(unless noninteractive
-  (add-hook 'kill-emacs-hook 'debbugs-dump-persistency-file))
+  (with-temp-file debbugs-persistency-file
+    (insert
+     ";; -*- emacs-lisp -*-\n"
+     ";; Debbugs tags connection history.  Don't change this file.\n\n"
+     (format "(setq debbugs-local-tags '%S)"
+            (sort (copy-sequence debbugs-local-tags) '<)))))
 
 (defvar debbugs-current-severities nil
   "The severities strings to be searched for.")
@@ -516,7 +509,8 @@ The following commands are available:
        (add-to-list 'debbugs-local-tags id)
        (put-text-property
         (+ (point) (- 5 (length (number-to-string id)))) (+ (point) 5)
-        'face 'debbugs-tagged)))))
+        'face 'debbugs-tagged))))
+  (debbugs-dump-persistency-file))
 
 (defun debbugs-suppress-done ()
   "Suppress bugs marked as done."