(debbugs-dump-persistency-file): Don't destroy the list while saving it.

diff --git a/packages/debbugs/ChangeLog b/packages/debbugs/ChangeLog
index 5f64d2ff9bc454d55a577e4acaa9b7a021d8ecc2..c0f63849d69cd87cc7b6268d36aa7454327e60c7 100644 (file)
--- a/packages/debbugs/ChangeLog
+++ b/packages/debbugs/ChangeLog
@@ -3,6 +3,8 @@
        * debbugs-gnu.el (debbugs-toggle-sort): Sort the tagged bugs at
        the end.
        (debbugs-emacs): Init the saved bugs on call, not on load.
        * debbugs-gnu.el (debbugs-toggle-sort): Sort the tagged bugs at
        the end.
        (debbugs-emacs): Init the saved bugs on call, not on load.

+       (debbugs-dump-persistency-file): Don't destroy the list while
+       saving it.

 
 2011-07-05  Michael Albinus  <michael.albinus@gmx.de>
 
 
 2011-07-05  Michael Albinus  <michael.albinus@gmx.de>
 

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 1aa4c537c25f789af3e32a7c525372f73b182069..bb4fd38405e33efcd70c6980f9363dac443337a8 100644 (file)
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -73,7 +73,8 @@
       (insert
        ";; -*- emacs-lisp -*-\n"
        ";; Debbugs tags connection history.  Don't change this file.\n\n"
       (insert
        ";; -*- emacs-lisp -*-\n"
        ";; Debbugs tags connection history.  Don't change this file.\n\n"

-       (format "(setq debbugs-local-tags '%S)" (sort debbugs-local-tags '<)))
+       (format "(setq debbugs-local-tags '%S)"
+              (sort (copy-sequence debbugs-local-tags) '<)))

       (write-region
        (point-min) (point-max) debbugs-persistency-file))))
 
       (write-region
        (point-min) (point-max) debbugs-persistency-file))))