emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/debbugs 49237ca 037/311: (debbugs-emacs): Init the save


From: Stefan Monnier
Subject: [elpa] externals/debbugs 49237ca 037/311: (debbugs-emacs): Init the saved bugs on call, not on load.
Date: Sun, 29 Nov 2020 18:41:35 -0500 (EST)

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

    (debbugs-emacs): Init the saved bugs on call, not on load.
---
 ChangeLog      |  1 +
 debbugs-gnu.el | 13 ++++++-------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e28b61c..5f64d2f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,7 @@
 
        * debbugs-gnu.el (debbugs-toggle-sort): Sort the tagged bugs at
        the end.
+       (debbugs-emacs): Init the saved bugs on call, not on load.
 
 2011-07-05  Michael Albinus  <michael.albinus@gmx.de>
 
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 407b05d..1aa4c53 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -66,13 +66,6 @@
   (expand-file-name (locate-user-emacs-file "debbugs"))
   "File name of a persistency store for debbugs variables")
 
-;; Initialize variables.
-(when (file-exists-p debbugs-persistency-file)
-  (ignore-errors
-    (with-temp-buffer
-      (insert-file-contents debbugs-persistency-file)
-      (eval (read (current-buffer))))))
-
 (defun debbugs-dump-persistency-file ()
   "Function to store debbugs variables persistently."
   (ignore-errors
@@ -104,6 +97,12 @@
     (completing-read "Severity: "
                     '("important" "normal" "minor" "wishlist")
                     nil t "normal")))
+  ;; Initialize variables.
+  (when (and (file-exists-p debbugs-persistency-file)
+            (not debbugs-local-tags))
+    (with-temp-buffer
+      (insert-file-contents debbugs-persistency-file)
+      (eval (read (current-buffer)))))
   (unless (consp severities)
     (setq severities (list severities)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]