diff options
| author | Eric S. Raymond | 1993-04-16 19:35:22 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 1993-04-16 19:35:22 +0000 |
| commit | a4ef65847837bd4e64e42183f191339485fb9b7a (patch) | |
| tree | d1dd06b2fc2c7c576a5633f980f64c8c48c436fa /lisp/diff.el | |
| parent | 17e2c564c75cbca90e9d396f418ca22da89c454d (diff) | |
| download | emacs-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.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.") | |||
| 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 |