More preparation for removing dired.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c53e77bddca19955f89f04c5cdf19d0b55d62813..5c0afd56b9e82be245ead71f5dc06531d3394100 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,6 +7,9 @@
        * vc-hooks.el (vc-toggle-read-only): Throw an error when a user 
        tries this on a version-controlled buffer. it will do useless or 
        actively bad things on any version control system newer than RCS.
+       * vc-hooks.el (vc-dired-resynch-file),
+       vc.el (vc-dired-resynch-file): Change name of primitive to 
+       vc-directory-resynch-file, preoaring to remove dired.
 
 2008-05-02  Dan Nicolaescu  <dann@ics.uci.edu>
 

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 5b513c46c47856b1480af04abcd49b1e39243be8..76fe6053f19a8e33d049df0ad7e0fd84c56c210d 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -751,7 +751,7 @@ Before doing that, check if there are any old backups and get rid of them."
            (vc-call make-version-backups-p file)
            (vc-make-version-backup file)))))
 
-(declare-function vc-dired-resynch-file "vc" (file))
+(declare-function vc-directory-resynch-file "vc" (file))
 
 (defun vc-after-save ()
   "Function to be called by `basic-save-buffer' (in files.el)."
@@ -775,7 +775,7 @@ Before doing that, check if there are any old backups and get rid of them."
         (when (featurep 'vc)
           ;; If VC is not loaded, then there can't be
           ;; any VC Dired buffer to synchronize.
-          (vc-dired-resynch-file file)))))
+          (vc-directory-resynch-file file)))))
 
 (defvar vc-menu-entry
   '(menu-item "Version Control" vc-menu-map

diff --git a/lisp/vc.el b/lisp/vc.el
index ae575985f1ae6917540f337f14e8ca331af3ef1c..f1286aece5ef1ff1b80bfbdff917e58f431d0ae2 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1896,7 +1896,7 @@ rather than user editing!"
       (when buffer
        (with-current-buffer buffer
          (vc-resynch-window file keep noquery)))))
-  (vc-dired-resynch-file file)
+  (vc-directory-resynch-file file)
   (when (memq 'vc-dir-mark-buffer-changed after-save-hook)
     (let ((buffer (get-file-buffer file)))
       (vc-dir-mark-buffer-changed file))))
@@ -2726,8 +2726,9 @@ Called by dired after any portion of a vc-dired buffer has been read in."
            (push buffer result)))))
     (nreverse result)))
 
-(defun vc-dired-resynch-file (file)
+(defun vc-directory-resynch-file (file)
   "Update the entries for FILE in any VC Dired buffers that list it."
+  ;;FIXME This needs to be implemented so it works for vc-dir
   (let ((buffers (vc-dired-buffers-for-dir (file-name-directory file))))
     (when buffers
       (mapcar (lambda (buffer)