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 | |
| 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.
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/pcvs-parse.el | 7 |
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 @@ | |||
| 1 | 2007-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 | |||
| 1 | 2007-11-16 Juri Linkov <juri@jurta.org> | 6 | 2007-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 | ||
| 31 | 2007-11-14 Jason Rumney <jasonr@gnu.org> | 36 | 2007-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 | ||
| 36 | 2007-11-14 Nick Roberts <nickrob@snap.net.nz> | 41 | 2007-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)) "/$") |