diff options
| author | Richard M. Stallman | 1999-08-28 18:21:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-08-28 18:21:34 +0000 |
| commit | 5ef3e90c75faf157b2d8e32233731b89e8e8916b (patch) | |
| tree | 9c7e27823d9580383f9f01bf3eb3596fa4c0eb3e | |
| parent | 435d749ca86ce3c1a4f84a460ad51abcecbc0429 (diff) | |
| download | emacs-5ef3e90c75faf157b2d8e32233731b89e8e8916b.tar.gz emacs-5ef3e90c75faf157b2d8e32233731b89e8e8916b.zip | |
(diff-parse-differences):
Use a marker instead of an integer for `compilation-parsing-end'.
| -rw-r--r-- | lisp/diff.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/diff.el b/lisp/diff.el index f181873384b..358ad9a4c24 100644 --- a/lisp/diff.el +++ b/lisp/diff.el | |||
| @@ -161,11 +161,11 @@ is nil, REGEXP matches only half a section.") | |||
| 161 | ;; We have found as many new loci as the user wants, | 161 | ;; We have found as many new loci as the user wants, |
| 162 | ;; or the user wanted a specific diff, and we're past it. | 162 | ;; or the user wanted a specific diff, and we're past it. |
| 163 | (setq found-desired t))) | 163 | (setq found-desired t))) |
| 164 | (if found-desired | 164 | (set-marker compilation-parsing-end |
| 165 | (setq compilation-parsing-end (point)) | 165 | (if found-desired (point) |
| 166 | ;; Set to point-max, not point, so we don't perpetually | 166 | ;; Set to point-max, not point, so we don't perpetually |
| 167 | ;; parse the last bit of text when it isn't a diff header. | 167 | ;; parse the last bit of text when it isn't a diff header. |
| 168 | (setq compilation-parsing-end (point-max))) | 168 | (point-max))) |
| 169 | (message "Parsing differences...done")) | 169 | (message "Parsing differences...done")) |
| 170 | (setq compilation-error-list (nreverse compilation-error-list))) | 170 | (setq compilation-error-list (nreverse compilation-error-list))) |
| 171 | 171 | ||