[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/net tramp.el
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] emacs/lisp/net tramp.el |
Date: |
Thu, 09 Apr 2009 13:46:12 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Michael Albinus <albinus> 09/04/09 13:46:12
Modified files:
lisp/net : tramp.el
Log message:
* net/tramp.el (tramp-file-name-handler-alist): Add
`vc-registered'.
(tramp-handle-vc-registered ): New defun. (Bug#1741).
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp.el?cvsroot=emacs&r1=1.230&r2=1.231
Patches:
Index: tramp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp.el,v
retrieving revision 1.230
retrieving revision 1.231
diff -u -b -r1.230 -r1.231
--- tramp.el 5 Apr 2009 18:06:55 -0000 1.230
+++ tramp.el 9 Apr 2009 13:46:11 -0000 1.231
@@ -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.