Mercurial > emacs
changeset 102907:5055f4ba592b
* net/tramp.el (tramp-file-name-handler-alist): Add
`vc-registered'.
(tramp-handle-vc-registered ): New defun. (Bug#1741).
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Thu, 09 Apr 2009 13:46:11 +0000 |
| parents | dafde9e3d72b |
| children | 9c4ff2c2c769 |
| files | lisp/net/tramp.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/tramp.el Thu Apr 09 13:40:19 2009 +0000 +++ b/lisp/net/tramp.el Thu Apr 09 13:46:11 2009 +0000 @@ -1842,7 +1842,8 @@ (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 @@ (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.