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))) |