Mercurial > emacs
comparison lisp/diff.el @ 25413:c23f7efbfd57
(diff-parse-differences):
Use a marker instead of an integer for `compilation-parsing-end'.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 28 Aug 1999 18:21:34 +0000 |
parents | 5acb1a85cb5d |
children | 67b464da13ec |
comparison
equal
deleted
inserted
replaced
25412:27c66621737f | 25413:c23f7efbfd57 |
---|---|
159 (>= num-loci-found find-at-least)) | 159 (>= num-loci-found find-at-least)) |
160 (and limit-search (>= (point) limit-search))) | 160 (and limit-search (>= (point) limit-search))) |
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 |
172 (defun diff-process-setup () | 172 (defun diff-process-setup () |
173 "Set up \`compilation-exit-message-function' for \`diff'." | 173 "Set up \`compilation-exit-message-function' for \`diff'." |