# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1221940118 0
# Node ID fb7bd9d40237b9ead3e57ec922e4e99f8da6adc2
# Parent  e60018e33179fb3e1eddce85fe4b3b3d2d048138
Comments.

diff -r e60018e33179 -r fb7bd9d40237 lisp/savehist.el
--- a/lisp/savehist.el	Sat Sep 20 19:47:07 2008 +0000
+++ b/lisp/savehist.el	Sat Sep 20 19:48:38 2008 +0000
@@ -318,7 +318,7 @@
 		(dolist (elt value)
 		  (let ((start (point)))
 		    (insert " ")
-		    ;; Print and try to read the element we just printed.
+		    ;; Try to print and then to read an element.
 		    (condition-case nil
 			(progn
 			  (prin1 elt (current-buffer))
@@ -326,7 +326,7 @@
 			    (goto-char start)
 			    (read (current-buffer))))
 		      (error
-		       ;; If reading it gets an error, comment it out.
+		       ;; If writing or reading gave an error, comment it out.
 		       (goto-char start)
 		       (insert "\n")
 		       (while (not (eobp))