+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.
(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.")
(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.