[Emacs-diffs] Changes to emacs/lisp/savehist.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/09/20 19:46:55

Index: savehist.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/savehist.el,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- savehist.el 6 May 2008 07:57:48 -0000       1.27
+++ savehist.el 20 Sep 2008 19:46:55 -0000      1.28
@@ -318,12 +318,13 @@
                (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
+                       (progn
+                         (prin1 elt (current-buffer))
                        (save-excursion
                          (goto-char start)
-                         (read (current-buffer)))
+                           (read (current-buffer))))
                      (error
                       ;; If reading it gets an error, comment it out.
                       (goto-char start)