aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/pcvs-parse.el
diff options
context:
space:
mode:
authorStefan Monnier2007-11-16 03:16:32 +0000
committerStefan Monnier2007-11-16 03:16:32 +0000
commitcc39740b6e28432c3bc4a2b61d04a411ce3b41ed (patch)
treefc3161176c404cf3b0ec3ea0a31bc57f69802832 /lisp/pcvs-parse.el
parent5580cd5187e2e921575541f7a3a3a84ec517b7ab (diff)
downloademacs-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.el7
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)) "/$")