procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
`vc-registered'.
(tramp-handle-vc-registered ): New defun.  (Bug#1741).
This commit is contained in:
Michael Albinus 2009-04-09 13:46:27 +00:00
parent 5ec2288f4a
commit 4909640742
2 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -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.

10
lisp/net/tramp.el
View file

@ -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.