Ami Fischman <ami at fischman.org>

(savehist-save): Handle errors in writing as well as reading.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7dbfcd16c980721d54e54c18bdfd5a062970eee9..c32fadb767df3d1d80377ccff9d3079c88d4ef46 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-20  Ami Fischman  <ami@fischman.org>
+
+       * savehist.el (savehist-save): Handle errors in writing as well as
+       reading.
+
 2008-09-20  Michael Olson  <mwolson@gnu.org>
 
        * emacs-lisp/tq.el (tq-create): Disable undo in tq buffer in order

diff --git a/lisp/savehist.el b/lisp/savehist.el
index c2674fd4f8e6c1f1d5c706c1d8e9a9d2d0509e71..65dc6d025c1fbc14f1bcac30cb7358df8bb24050 100644 (file)
--- a/lisp/savehist.el
+++ b/lisp/savehist.el
@@ -318,12 +318,13 @@ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved,
                (dolist (elt value)
                  (let ((start (point)))
                    (insert " ")
-                   (prin1 elt (current-buffer))
-                   ;; Try to read the element we just printed.
+                   ;; Print and try to read the element we just printed.
                    (condition-case nil
-                       (save-excursion
-                         (goto-char start)
-                         (read (current-buffer)))
+                       (progn
+                         (prin1 elt (current-buffer))
+                         (save-excursion
+                           (goto-char start)
+                           (read (current-buffer))))
                      (error
                       ;; If reading it gets an error, comment it out.
                       (goto-char start)