Mercurial > emacs

changeset 75469:d2adef0ec2f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-arch-file-id): Move with-current-buffer inside the if.
author Richard M. Stallman <rms@gnu.org>
date Sun, 28 Jan 2007 07:05:42 +0000
parents e6bf9dd8fe81
children b391b0c782f4
files lisp/vc-arch.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-arch.el	Sun Jan 28 07:05:17 2007 +0000
+++ b/lisp/vc-arch.el	Sun Jan 28 07:05:42 2007 +0000
@@ -152,7 +152,7 @@
 	(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 @@
 		    (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