diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-04-16 19:35:22 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-04-16 19:35:22 +0000 |
| commit | a4ef65847837bd4e64e42183f191339485fb9b7a (patch) | |
| tree | d1dd06b2fc2c7c576a5633f980f64c8c48c436fa /lisp/diff.el | |
| parent | 17e2c564c75cbca90e9d396f418ca22da89c454d (diff) | |
| download | emacs-a4ef65847837bd4e64e42183f191339485fb9b7a.tar.gz | |
(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.el | 4 |
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.") (message "Parsing differences...") ;; Don't reparse diffs already seen at last parse. - (goto-char compilation-parsing-end) + (if compilation-parsing-end (goto-char compilation-parsing-end)) ;; Construct in REGEXP a regexp composed of all those in dired-regexp-alist. (let ((regexp (mapconcat (lambda (elt) @@ -267,4 +267,6 @@ The backup file is the first file given to `diff'." (> (backup-extract-version fn1) (backup-extract-version fn2)))))))))) +(provide 'diff) + ;;; diff.el ends here |