Mercurial > emacs
comparison lisp/pcvs-parse.el @ 70014:876ca9433460
(cvs-parse-table): Use `with-temp-buffer' to avoid leaving temporary
.cvsignore buffers behind.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Thu, 13 Apr 2006 14:38:39 +0000 |
| parents | 3bd95f4f2941 |
| children | 2b77fa42947f c156f6a9e7b5 |
comparison
equal
deleted
inserted
replaced
| 70013:d30be4cf861a | 70014:876ca9433460 |
|---|---|
| 269 ;; These messages either correspond to a true new directory | 269 ;; These messages either correspond to a true new directory |
| 270 ;; that an update will bring in, or to a directory that's empty | 270 ;; that an update will bring in, or to a directory that's empty |
| 271 ;; on the current branch (either because it only exists in other | 271 ;; on the current branch (either because it only exists in other |
| 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-current-buffer | 274 (with-temp-buffer |
| 275 (find-file-noselect (expand-file-name | 275 (insert-file-contents (expand-file-name |
| 276 ".cvsignore" (file-name-directory dir))) | 276 ".cvsignore" (file-name-directory dir))) |
| 277 (goto-char (point-min)) | 277 (goto-char (point-min)) |
| 278 (re-search-forward | 278 (re-search-forward |
| 279 (concat "^" (regexp-quote (file-name-nondirectory dir)) "/$") | 279 (concat "^" (regexp-quote (file-name-nondirectory dir)) "/$") |
| 280 nil t))) | 280 nil t))) |