From 6002d9b956710e58b1decdc098ea7ef8e9042d07 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 25 Sep 2008 01:46:06 +0000 Subject: [PATCH] Fix last fix. --- lisp/vc.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index b4dd9eaf6ef..64b1e943f82 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1286,18 +1286,18 @@ After check-out, runs the normal hook `vc-checkout-hook'." (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." -- 2.39.5