From e56b4640c2cf1103c85299c70750cc488627bf97 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 28 Jan 2007 07:05:42 +0000 Subject: [PATCH] (vc-arch-file-id): Move with-current-buffer inside the if. --- lisp/vc-arch.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.2