changeset 98257:fb7bd9d40237

Comments.
author Glenn Morris <rgm@gnu.org>
date Sat, 20 Sep 2008 19:48:38 +0000
parents e60018e33179
children 091fb71440cc
files lisp/savehist.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))