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'."