aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2007-11-16 03:16:32 +0000
committerStefan Monnier2007-11-16 03:16:32 +0000
commitcc39740b6e28432c3bc4a2b61d04a411ce3b41ed (patch)
treefc3161176c404cf3b0ec3ea0a31bc57f69802832
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.
-rw-r--r--lisp/ChangeLog9
-rw-r--r--lisp/pcvs-parse.el7
2 files changed, 11 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ca055fb9cf..86f0e839801 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12007-11-16 Stefan Monnier <monnier@iro.umontreal.ca>
2
3 * pcvs-parse.el (cvs-parse-table): Ignore errors when looking up files
4 in order to determine if there's a conflict.
5
12007-11-16 Juri Linkov <juri@jurta.org> 62007-11-16 Juri Linkov <juri@jurta.org>
2 7
3 * man.el (Man-heading-regexp): Add 0-9. 8 * man.el (Man-heading-regexp): Add 0-9.
@@ -30,8 +35,8 @@
30 35
312007-11-14 Jason Rumney <jasonr@gnu.org> 362007-11-14 Jason Rumney <jasonr@gnu.org>
32 37
33 * international/mule-cmds.el (set-locale-environment): Set 38 * international/mule-cmds.el (set-locale-environment):
34 default-file-name-coding-system from system defaults on Windows. 39 Set default-file-name-coding-system from system defaults on Windows.
35 40
362007-11-14 Nick Roberts <nickrob@snap.net.nz> 412007-11-14 Nick Roberts <nickrob@snap.net.nz>
37 42
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)) "/$")