[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/tramp-cache.el,v
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp-cache.el,v |
Date: |
Sun, 27 Apr 2008 16:36:56 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Michael Albinus <albinus> 08/04/27 16:36:56
Index: tramp-cache.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-cache.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- tramp-cache.el 3 Feb 2008 12:02:39 -0000 1.12
+++ tramp-cache.el 27 Apr 2008 16:36:56 -0000 1.13
@@ -95,7 +95,7 @@
Returns DEFAULT if not set."
;; Unify localname.
(setq vec (copy-sequence vec))
- (aset vec 3 (directory-file-name file))
+ (aset vec 3 (tramp-run-real-handler 'directory-file-name (list file)))
(let* ((hash (or (gethash vec tramp-cache-data)
(puthash vec (make-hash-table :test 'equal)
tramp-cache-data)))
@@ -110,7 +110,7 @@
Returns VALUE."
;; Unify localname.
(setq vec (copy-sequence vec))
- (aset vec 3 (directory-file-name file))
+ (aset vec 3 (tramp-run-real-handler 'directory-file-name (list file)))
(let ((hash (or (gethash vec tramp-cache-data)
(puthash vec (make-hash-table :test 'equal)
tramp-cache-data))))
@@ -122,14 +122,15 @@
"Remove all properties of FILE in the cache context of VEC."
;; Unify localname.
(setq vec (copy-sequence vec))
- (aset vec 3 (directory-file-name file))
+ (aset vec 3 (tramp-run-real-handler 'directory-file-name (list file)))
(tramp-message vec 8 "%s" file)
(remhash vec tramp-cache-data))
(defun tramp-flush-directory-property (vec directory)
"Remove all properties of DIRECTORY in the cache context of VEC.
Remove also properties of all files in subdirectories."
- (let ((directory (directory-file-name directory)))
+ (let ((directory (tramp-run-real-handler
+ 'directory-file-name (list directory))))
(tramp-message vec 8 "%s" directory)
(maphash
'(lambda (key value)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/tramp-cache.el,v,
Michael Albinus <=