From: Stefan Monnier Date: Fri, 16 Nov 2007 03:16:32 +0000 (+0000) Subject: (cvs-parse-table): Ignore errors when looking up files X-Git-Tag: emacs-pretest-22.1.90~356 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc39740b6e28432c3bc4a2b61d04a411ce3b41ed;p=emacs.git (cvs-parse-table): Ignore errors when looking up files in order to determine if there's a conflict. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7ca055fb9cf..86f0e839801 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-11-16 Stefan Monnier + + * pcvs-parse.el (cvs-parse-table): Ignore errors when looking up files + in order to determine if there's a conflict. + 2007-11-16 Juri Linkov * man.el (Man-heading-regexp): Add 0-9. @@ -30,8 +35,8 @@ 2007-11-14 Jason Rumney - * international/mule-cmds.el (set-locale-environment): Set - default-file-name-coding-system from system defaults on Windows. + * international/mule-cmds.el (set-locale-environment): + Set default-file-name-coding-system from system defaults on Windows. 2007-11-14 Nick Roberts 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'." ;; servers, this should not be necessary, because they return ;; a complete merge output. (with-temp-buffer - (insert-file-contents path) + (ignore-errors (insert-file-contents path)) (goto-char (point-min)) (if (re-search-forward "^<<<<<<< " nil t) 'CONFLICT 'NEED-MERGE)))) @@ -272,8 +272,9 @@ The remaining KEYS are passed directly to `cvs-create-fileinfo'." ;; branches, or because it's been removed). (if (ignore-errors (with-temp-buffer - (insert-file-contents (expand-file-name - ".cvsignore" (file-name-directory dir))) + (ignore-errors + (insert-file-contents + (expand-file-name ".cvsignore" (file-name-directory dir)))) (goto-char (point-min)) (re-search-forward (concat "^" (regexp-quote (file-name-nondirectory dir)) "/$")