diff options
| -rw-r--r-- | lisp/savehist.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/savehist.el b/lisp/savehist.el index 65dc6d025c1..c1c9a3db8fa 100644 --- a/lisp/savehist.el +++ b/lisp/savehist.el | |||
| @@ -318,7 +318,7 @@ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved, | |||
| 318 | (dolist (elt value) | 318 | (dolist (elt value) |
| 319 | (let ((start (point))) | 319 | (let ((start (point))) |
| 320 | (insert " ") | 320 | (insert " ") |
| 321 | ;; Print and try to read the element we just printed. | 321 | ;; Try to print and then to read an element. |
| 322 | (condition-case nil | 322 | (condition-case nil |
| 323 | (progn | 323 | (progn |
| 324 | (prin1 elt (current-buffer)) | 324 | (prin1 elt (current-buffer)) |
| @@ -326,7 +326,7 @@ If AUTO-SAVE is non-nil, compare the saved contents to the one last saved, | |||
| 326 | (goto-char start) | 326 | (goto-char start) |
| 327 | (read (current-buffer)))) | 327 | (read (current-buffer)))) |
| 328 | (error | 328 | (error |
| 329 | ;; If reading it gets an error, comment it out. | 329 | ;; If writing or reading gave an error, comment it out. |
| 330 | (goto-char start) | 330 | (goto-char start) |
| 331 | (insert "\n") | 331 | (insert "\n") |
| 332 | (while (not (eobp)) | 332 | (while (not (eobp)) |