Re: Error report on startup

[Herbert Euler]

> 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'.

Sorry for the delay.  I could not use computer these days.  Yes,
it gives acceptable results.  However, there are actually two
`read's.  So the patch should be

*** type-break.el.orignal       Mon Mar  5 09:38:20 2007
--- type-break.el       Mon Mar  5 09:21:33 2007
***************
*** 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'.
***************
*** 576,585 ****
               (setq file
                     (with-current-buffer
                         (find-file-noselect file 'nowarn)
!                       (save-excursion
!                         (goto-char (point-min))
!                         (forward-line 1)
!                         (read (current-buffer)))))))
         file
       0)))

--- 579,591 ----
               (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)))))))
         file
       0)))

Thank you very much.

Best regards,
Guanpeng Xu

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/