lisp/vc/vc.el (vc-rollback): Use set-buffer-modified-p.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c7015c7a7d5b49a14ca1e31ce9a6513728426cca..bd87881c9ba41ccf84241d45d90e8d90117dec9e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-03-23  Juanma Barranquero  <lekktu@gmail.com>
+
+       * vc/vc.el (vc-rollback): Use set-buffer-modified-p.
+
 2014-03-23  Daniel Colascione  <dancol@dancol.org>
 
        Change subword-mode to use `find-word-boundary-function-table' and

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 4a536900eb3967e9a5cb03ca645fb853da7c3047..305cc6b561e911f7f7779f7bad7d529e0c25c399 100644 (file)
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2450,7 +2450,7 @@ depending on the underlying version-control system."
        (error "Please revert all modified workfiles before rollback")))
     ;; Accumulate changes associated with the fileset
     (vc-setup-buffer "*vc-diff*")
-    (not-modified)
+    (set-buffer-modified-p nil)
     (message "Finding changes...")
     (let* ((tip (vc-working-revision (car files)))
            ;; FIXME: `previous-revision' should take the fileset.