From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 9 Apr 2009 13:46:27 +0000 (+0000)
Subject: * net/tramp.el (tramp-file-name-handler-alist): Add
X-Git-Tag: emacs-pretest-23.0.93~185
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/4909640742cdc85f8dab1f43f99a06372cabb109

* net/tramp.el (tramp-file-name-handler-alist): Add
`vc-registered'.
(tramp-handle-vc-registered ): New defun.  (Bug#1741).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b91b8e656..7dfa903b33 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2009-04-09  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/tramp.el (tramp-file-name-handler-alist): Add
+	`vc-registered'.
+	(tramp-handle-vc-registered ): New defun.  (Bug#1741).
+
+	* net/tramp-cache.el (tramp-flush-directory-property): Use the
+	localname of KEY for check.
+
 2009-04-09  Kenichi Handa  <handa@m17n.org>
 
 	* international/charprop.el: Re-generated.
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index a405bb7159..deaabb0f61 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1842,7 +1842,8 @@ This is used to map a mode number to a permission string.")
     (dired-recursive-delete-directory
      . tramp-handle-dired-recursive-delete-directory)
     (set-visited-file-modtime . tramp-handle-set-visited-file-modtime)
-    (verify-visited-file-modtime . tramp-handle-verify-visited-file-modtime))
+    (verify-visited-file-modtime . tramp-handle-verify-visited-file-modtime)
+    (vc-registered . tramp-handle-vc-registered))
   "Alist of handler functions.
 Operations not mentioned here will be handled by the normal Emacs functions.")
 
@@ -4515,6 +4516,13 @@ Returns a file name in `tramp-auto-save-directory' for autosaving this file."
 	  (tramp-message v 0 "Wrote %s" filename))
 	(run-hooks 'tramp-handle-write-region-hook)))))
 
+(defun tramp-handle-vc-registered (file)
+  "Like `vc-registered' for Tramp files."
+  ;; There could be new files, created by the vc backend.  We disable
+  ;; the cache therefore, by providing a temporary one.
+  (let ((tramp-cache-data (make-hash-table :test 'equal)))
+    (tramp-run-real-handler 'vc-registered (list file))))
+
 ;;;###autoload
 (progn (defun tramp-run-real-handler (operation args)
   "Invoke normal file name handler for OPERATION.