Commit 6cdc3bc9 authored by Eric S. Raymond's avatar Eric S. Raymond
Browse files

More preparation for removing dired.

parent caf37b1f
......@@ -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>
 
......
......@@ -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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment