[Emacs-diffs] Changes to emacs/lisp/type-break.el,v

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       07/03/04 17:50:46

Index: type-break.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/type-break.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -b -r1.44 -r1.45
--- type-break.el       30 Jan 2007 19:36:41 -0000      1.44
+++ type-break.el       4 Mar 2007 17:50:46 -0000       1.45
@@ -562,9 +562,12 @@
     (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))))))))
+                (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'.