diff options
| author | Stefan Monnier | 2007-11-16 03:16:32 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-11-16 03:16:32 +0000 |
| commit | cc39740b6e28432c3bc4a2b61d04a411ce3b41ed (patch) | |
| tree | fc3161176c404cf3b0ec3ea0a31bc57f69802832 /lisp/pcvs-parse.el | |
| parent | 5580cd5187e2e921575541f7a3a3a84ec517b7ab (diff) | |
| download | emacs-cc39740b6e28432c3bc4a2b61d04a411ce3b41ed.tar.gz emacs-cc39740b6e28432c3bc4a2b61d04a411ce3b41ed.zip | |
(cvs-parse-table): Ignore errors when looking up files
in order to determine if there's a conflict.
Diffstat (limited to 'lisp/pcvs-parse.el')
| -rw-r--r-- | lisp/pcvs-parse.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/pcvs-parse.el b/lisp/pcvs-parse.el index 3ca1829030f..7eb5c0b488f 100644 --- a/lisp/pcvs-parse.el +++ b/lisp/pcvs-parse.el | |||
| @@ -235,7 +235,7 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." | |||
| 235 | ;; servers, this should not be necessary, because they return | 235 | ;; servers, this should not be necessary, because they return |
| 236 | ;; a complete merge output. | 236 | ;; a complete merge output. |
| 237 | (with-temp-buffer | 237 | (with-temp-buffer |
| 238 | (insert-file-contents path) | 238 | (ignore-errors (insert-file-contents path)) |
| 239 | (goto-char (point-min)) | 239 | (goto-char (point-min)) |
| 240 | (if (re-search-forward "^<<<<<<< " nil t) | 240 | (if (re-search-forward "^<<<<<<< " nil t) |
| 241 | 'CONFLICT 'NEED-MERGE)))) | 241 | 'CONFLICT 'NEED-MERGE)))) |
| @@ -272,8 +272,9 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." | |||
| 272 | ;; branches, or because it's been removed). | 272 | ;; branches, or because it's been removed). |
| 273 | (if (ignore-errors | 273 | (if (ignore-errors |
| 274 | (with-temp-buffer | 274 | (with-temp-buffer |
| 275 | (insert-file-contents (expand-file-name | 275 | (ignore-errors |
| 276 | ".cvsignore" (file-name-directory dir))) | 276 | (insert-file-contents |
| 277 | (expand-file-name ".cvsignore" (file-name-directory dir)))) | ||
| 277 | (goto-char (point-min)) | 278 | (goto-char (point-min)) |
| 278 | (re-search-forward | 279 | (re-search-forward |
| 279 | (concat "^" (regexp-quote (file-name-nondirectory dir)) "/$") | 280 | (concat "^" (regexp-quote (file-name-nondirectory dir)) "/$") |