From: Stefan Monnier Date: Wed, 28 Mar 2007 01:19:43 +0000 (+0000) Subject: (vc-with-current-file-buffer): New macro. X-Git-Tag: emacs-pretest-22.0.97~148 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74cb3d2111ae0b87e7d7a20636a76a720a0771ed;p=emacs.git (vc-with-current-file-buffer): New macro. (vc-arch-file-source-p): Use it to avoid infloop. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 53e7f65c968..979197be0c9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-03-28 Stefan Monnier + + * vc-arch.el (vc-with-current-file-buffer): New macro. + (vc-arch-file-source-p): Use it to avoid infloop. + 2007-03-28 David Hansen (tiny change) * emacs-lisp/lisp.el (lisp-complete-symbol): diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el index 0f02db0ba96..488f9108d36 100644 --- a/lisp/vc-arch.el +++ b/lisp/vc-arch.el @@ -109,6 +109,19 @@ (defconst vc-arch-tagline-re "^\\W*arch-tag:[ \t]*\\(.*[^ \t\n]\\)") +(defmacro vc-with-current-file-buffer (file &rest body) + (declare (indent 2) (debug t)) + `(let ((-kill-buf- nil) + (-file- ,file)) + (with-current-buffer (or (find-buffer-visiting -file-) + (setq -kill-buf- (generate-new-buffer " temp"))) + ;; Avoid find-file-literally since it can do many undesirable extra + ;; things (among which, call us back into an infinite loop). + (if -kill-buf- (insert-file-contents -file-)) + (unwind-protect + (progn ,@body) + (if (buffer-live-p -kill-buf-) (kill-buffer -kill-buf-)))))) + (defun vc-arch-file-source-p (file) "Can return nil, `maybe' or a non-nil value. Only the value `maybe' can be trusted :-(." @@ -122,7 +135,7 @@ Only the value `maybe' can be trusted :-(." (concat ".arch-ids/" (file-name-nondirectory file) ".id") (file-name-directory file))) ;; Check the presence of a tagline. - (with-current-buffer (find-file-noselect file) + (vc-with-current-file-buffer file (save-excursion (goto-char (point-max)) (or (re-search-backward vc-arch-tagline-re (- (point) 1000) t)