(type-break-get-previous-count): Repeat previous change here.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af18cbdf9ca63b04382f1ab375a5814fd12ef4f0..07a9891a54214b487a66ec9181e5050a7f366ce2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2007-03-11  Richard Stallman  <rms@gnu.org>
+
+       * emacs-lisp/bytecomp.el (byte-compile-warning-prefix): 
+       Correctly compute line number.
+       
+2007-03-11  Guanpeng Xu  <herberteuler@hotmail.com>
+
+       * type-break.el (type-break-get-previous-count): 
+       Repeat previous change here.
+
 2007-03-11  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * progmodes/grep.el (grep-find-ignored-directories): Add .git and

diff --git a/lisp/type-break.el b/lisp/type-break.el
index e915ab2d1fb67f13dcb54ec9324bd150ba18b64b..e065e32df54b13ce82831871ea1c7bddb42aa244 100644 (file)
--- a/lisp/type-break.el
+++ b/lisp/type-break.el
@@ -579,10 +579,13 @@ integer."
               (setq file
                     (with-current-buffer
                         (find-file-noselect file 'nowarn)
-                      (save-excursion
-                        (goto-char (point-min))
-                        (forward-line 1)
-                        (read (current-buffer)))))))
+                    (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)))