# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1222307166 0
# Node ID 34fed53002748b8a24a7d3e04cc6618544246719
# Parent  26ff192a882ae1faa6ef36f9bd79ef3e4a95c38d
Fix last fix.

diff -r 26ff192a882a -r 34fed5300274 lisp/vc.el
--- a/lisp/vc.el	Thu Sep 25 01:44:23 2008 +0000
+++ b/lisp/vc.el	Thu Sep 25 01:46:06 2008 +0000
@@ -1286,18 +1286,18 @@
   (run-hooks 'vc-checkout-hook))
 
 (defun vc-mark-resolved (backend files)
-  (with-vc-properties
-   files
-   (vc-call-backend backend 'mark-resolved files)
-   (message
-    (substitute-command-keys
-     "Conflicts have been resolved in %s.  \
+  (prog1 (with-vc-properties
+	  files
+	  (vc-call-backend backend 'mark-resolved files)
+	  ;; FIXME: Is this TRTD?  Might not be.
+	  `((vc-state . edited)))
+    (message
+     (substitute-command-keys
+      "Conflicts have been resolved in %s.  \
 Type \\[vc-next-action] to check in changes.")
-    (if (> (length files) 1)
-	(format "%d files" (length files))
-      "this file"))
-   ;; FIXME: Is this TRTD?  Might not be.
-   `((vc-state . edited))))
+     (if (> (length files) 1)
+	 (format "%d files" (length files))
+       "this file"))))
 
 (defun vc-steal-lock (file rev owner)
   "Steal the lock on FILE."