Commit 49096407 authored by Michael Albinus's avatar Michael Albinus

* net/tramp.el (tramp-file-name-handler-alist): Add

`vc-registered'.
(tramp-handle-vc-registered ): New defun.  (Bug#1741).
parent 5ec2288f
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.
......
......@@ -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.
......
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