Commit 926558fb authored by Glenn Morris's avatar Glenn Morris

Ami Fischman <ami at fischman.org>

(savehist-save): Handle errors in writing as well as reading.
parent d44004c0
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
......
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment