diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-03-11 21:17:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-03-11 21:17:06 +0000 |
| commit | 7ab2e82f0e19aead5fafaf7f959e4db29f3926b5 (patch) | |
| tree | 71b26413bf2a25cf7c478eefb20978b8593e2d9f /lisp/type-break.el | |
| parent | b0aa2c6515afd7f4cd35934f411d82427eecbc7b (diff) | |
| download | emacs-7ab2e82f0e19aead5fafaf7f959e4db29f3926b5.tar.gz | |
(type-break-get-previous-count): Repeat previous change here.
Diffstat (limited to 'lisp/type-break.el')
| -rw-r--r-- | lisp/type-break.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/type-break.el b/lisp/type-break.el index e915ab2d1fb..e065e32df54 100644 --- 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))) |