From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 28 Jan 2007 07:05:42 +0000 (+0000)
Subject: (vc-arch-file-id): Move with-current-buffer inside the if.
X-Git-Tag: emacs-pretest-22.0.94~570
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e56b4640c2cf1103c85299c70750cc488627bf97;p=emacs.git

(vc-arch-file-id): Move with-current-buffer inside the if.
---

diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el
index f0eb85eebd8..0f02db0ba96 100644
--- a/lisp/vc-arch.el
+++ b/lisp/vc-arch.el
@@ -152,7 +152,7 @@ Only the value `maybe' can be trusted :-(."
 	(with-temp-buffer
 	  (insert-file-contents idfile)
 	  (looking-at ".*[^ \n\t]")
-	  (match-string 0)))
+	  (match-string 0))
       (with-current-buffer (find-file-noselect file)
 	(save-excursion
 	  (goto-char (point-max))
@@ -161,7 +161,7 @@ Only the value `maybe' can be trusted :-(."
 		    (goto-char (point-min))
 		    (re-search-forward vc-arch-tagline-re (+ (point) 1000) t)))
 	      (match-string 1)
-	    (concat "./" (file-relative-name file (vc-arch-root file))))))))
+	    (concat "./" (file-relative-name file (vc-arch-root file)))))))))
 
 (defun vc-arch-tagging-method (file)
   (with-current-buffer