(vc-mark-resolved): Move message here from vc-default-mark-resolved.

(vc-default-mark-resolved): Change to an alias for ignore.

diff --git a/lisp/vc.el b/lisp/vc.el
index fa2d45e1a3a68c87ba446bd555a883a5862a9860..b4dd9eaf6efd5d474d638eef74403be9fe64dcb8 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1289,6 +1289,13 @@ After check-out, runs the normal hook `vc-checkout-hook'."
   (with-vc-properties
    files
    (vc-call-backend backend 'mark-resolved files)
+   (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))))
 
@@ -2452,20 +2459,12 @@ to provide the `find-revision' operation instead."
       (message "Checking out %s...done" file))))
 
 (defalias 'vc-default-revision-completion-table 'ignore)
+(defalias 'vc-default-mark-resolved 'ignore)
 
 (defun vc-default-dir-status-files (backend dir files default-state update-function)
   (funcall update-function
            (mapcar (lambda (file) (list file default-state)) files)))
 
-(defun vc-default-mark-resolved (backend files)
-  (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")))
-
 (defun vc-check-headers ()
   "Check if the current file has any headers in it."
   (interactive)