From dad757bc24f51ab5d599bd5b25b05d1a8c80f082 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 4 Mar 2007 17:50:46 +0000 Subject: (type-break-get-previous-time): Handle end-of-file errors specially so they don't get reported wrong in .emacs. --- lisp/type-break.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lisp/type-break.el') diff --git a/lisp/type-break.el b/lisp/type-break.el index 361670dbe6c..e915ab2d1fb 100644 --- a/lisp/type-break.el +++ b/lisp/type-break.el @@ -562,9 +562,12 @@ Returns nil if the file is missing or if the time breaks with the (if file (timep ;; returns expected format, else nil (with-current-buffer (find-file-noselect file 'nowarn) - (save-excursion - (goto-char (point-min)) - (read (current-buffer)))))))) + (condition-case nil + (save-excursion + (goto-char (point-min)) + (read (current-buffer))) + (end-of-file + (error "End of file in `%s'" file)))))))) (defun type-break-get-previous-count () "Get previous keystroke count from `type-break-file-name'. -- cgit v1.2.1