Mercurial > emacs
diff lisp/type-break.el @ 90786:ca12f314faac
Changes from arch/CVS synchronization
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 18 Mar 2007 14:00:43 +0000 |
parents | 8c2ef9d5d4a8 |
children | 91bf6e05918b |
line wrap: on
line diff
--- a/lisp/type-break.el Mon Mar 12 00:42:43 2007 +0000 +++ b/lisp/type-break.el Sun Mar 18 14:00:43 2007 +0000 @@ -562,12 +562,9 @@ (if file (timep ;; returns expected format, else nil (with-current-buffer (find-file-noselect file 'nowarn) - (condition-case nil - (save-excursion - (goto-char (point-min)) - (read (current-buffer))) - (end-of-file - (error "End of file in `%s'" file)))))))) + (save-excursion + (goto-char (point-min)) + (read (current-buffer)))))))) (defun type-break-get-previous-count () "Get previous keystroke count from `type-break-file-name'. @@ -579,13 +576,10 @@ (setq file (with-current-buffer (find-file-noselect file 'nowarn) - (condition-case nil - (save-excursion - (goto-char (point-min)) - (forward-line 1) - (read (current-buffer))) - (end-of-file - (error "End of file in `%s'" file))))))) + (save-excursion + (goto-char (point-min)) + (forward-line 1) + (read (current-buffer))))))) file 0)))