aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/diff.el
diff options
context:
space:
mode:
authorEric S. Raymond1993-04-16 19:35:22 +0000
committerEric S. Raymond1993-04-16 19:35:22 +0000
commita4ef65847837bd4e64e42183f191339485fb9b7a (patch)
treed1dd06b2fc2c7c576a5633f980f64c8c48c436fa /lisp/diff.el
parent17e2c564c75cbca90e9d396f418ca22da89c454d (diff)
downloademacs-a4ef65847837bd4e64e42183f191339485fb9b7a.tar.gz
emacs-a4ef65847837bd4e64e42183f191339485fb9b7a.zip
(diff-parse-differences): Small robustification --- don't lose if we
call this with compilation-parsing-end nil
Diffstat (limited to 'lisp/diff.el')
-rw-r--r--lisp/diff.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/diff.el b/lisp/diff.el
index bb33689c0f9..c4a83115b2c 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -74,7 +74,7 @@ is nil, REGEXP matches only half a section.")
74 (message "Parsing differences...") 74 (message "Parsing differences...")
75 75
76 ;; Don't reparse diffs already seen at last parse. 76 ;; Don't reparse diffs already seen at last parse.
77 (goto-char compilation-parsing-end) 77 (if compilation-parsing-end (goto-char compilation-parsing-end))
78 78
79 ;; Construct in REGEXP a regexp composed of all those in dired-regexp-alist. 79 ;; Construct in REGEXP a regexp composed of all those in dired-regexp-alist.
80 (let ((regexp (mapconcat (lambda (elt) 80 (let ((regexp (mapconcat (lambda (elt)
@@ -267,4 +267,6 @@ The backup file is the first file given to `diff'."
267 (> (backup-extract-version fn1) 267 (> (backup-extract-version fn1)
268 (backup-extract-version fn2)))))))))) 268 (backup-extract-version fn2))))))))))
269 269
270(provide 'diff)
271
270;;; diff.el ends here 272;;; diff.el ends here