[Emacs-diffs] Changes to emacs/lisp/vc.el,v

[Sam Steingold]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     08/06/05 15:53:05

Index: vc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc.el,v
retrieving revision 1.681
retrieving revision 1.682
diff -u -b -r1.681 -r1.682
--- vc.el       27 May 2008 00:20:23 -0000      1.681
+++ vc.el       5 Jun 2008 15:53:05 -0000       1.682
@@ -2284,10 +2284,12 @@
   (let* ((vc-fileset (vc-deduce-fileset))
         (backend (car vc-fileset))
         (files (cadr vc-fileset)))
+    (save-some-buffers          ; save buffers visiting files
+     nil (lambda ()
+           (and (buffer-modified-p)
+                (let ((file (buffer-file-name)))
+                  (and file (member file files))))))
     (dolist (file files)
-      (when (let ((buf (get-file-buffer file)))
-             (and buf (buffer-modified-p buf)))
-       (error "Please kill or save all modified buffers before updating."))
       (if (vc-up-to-date-p file)
          (vc-checkout file nil t)
        (if (eq (vc-checkout-model backend (list file)) 'locking)