Re: Error report on startup

[Richard Stallman]

Does this patch give acceptable results?

*** type-break.el       30 Jan 2007 18:46:39 -0500      1.44
--- type-break.el       02 Mar 2007 14:33:25 -0500      
***************
*** 562,570 ****
      (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))))))))
  
  (defun type-break-get-previous-count ()
    "Get previous keystroke count from `type-break-file-name'.
--- 562,573 ----
      (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))))))))
  
  (defun type-break-get-previous-count ()
    "Get previous keystroke count from `type-break-file-name'.