diff options
| author | Richard M. Stallman | 2007-03-11 21:17:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-03-11 21:17:06 +0000 |
| commit | 7ab2e82f0e19aead5fafaf7f959e4db29f3926b5 (patch) | |
| tree | 71b26413bf2a25cf7c478eefb20978b8593e2d9f | |
| parent | b0aa2c6515afd7f4cd35934f411d82427eecbc7b (diff) | |
| download | emacs-7ab2e82f0e19aead5fafaf7f959e4db29f3926b5.tar.gz emacs-7ab2e82f0e19aead5fafaf7f959e4db29f3926b5.zip | |
(type-break-get-previous-count): Repeat previous change here.
| -rw-r--r-- | lisp/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/type-break.el | 11 |
2 files changed, 17 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index af18cbdf9ca..07a9891a542 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,13 @@ | |||
| 1 | 2007-03-11 Richard Stallman <rms@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/bytecomp.el (byte-compile-warning-prefix): | ||
| 4 | Correctly compute line number. | ||
| 5 | |||
| 6 | 2007-03-11 Guanpeng Xu <herberteuler@hotmail.com> | ||
| 7 | |||
| 8 | * type-break.el (type-break-get-previous-count): | ||
| 9 | Repeat previous change here. | ||
| 10 | |||
| 1 | 2007-03-11 Dan Nicolaescu <dann@ics.uci.edu> | 11 | 2007-03-11 Dan Nicolaescu <dann@ics.uci.edu> |
| 2 | 12 | ||
| 3 | * progmodes/grep.el (grep-find-ignored-directories): Add .git and | 13 | * progmodes/grep.el (grep-find-ignored-directories): Add .git and |
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." | |||
| 579 | (setq file | 579 | (setq file |
| 580 | (with-current-buffer | 580 | (with-current-buffer |
| 581 | (find-file-noselect file 'nowarn) | 581 | (find-file-noselect file 'nowarn) |
| 582 | (save-excursion | 582 | (condition-case nil |
| 583 | (goto-char (point-min)) | 583 | (save-excursion |
| 584 | (forward-line 1) | 584 | (goto-char (point-min)) |
| 585 | (read (current-buffer))))))) | 585 | (forward-line 1) |
| 586 | (read (current-buffer))) | ||
| 587 | (end-of-file | ||
| 588 | (error "End of file in `%s'" file))))))) | ||
| 586 | file | 589 | file |
| 587 | 0))) | 590 | 0))) |
| 588 | 591 | ||