Mercurial > emacs
annotate lisp/net/tramp-cache.el @ 101406:6381c0548cdd
fix comments in last change
author | Adrian Robert <Adrian.B.Robert@gmail.com> |
---|---|
date | Fri, 23 Jan 2009 14:53:11 +0000 |
parents | a9dc0e7c3f2b |
children | 0e77ae8c6b45 |
rev | line source |
---|---|
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
1 ;;; tramp-cache.el --- file information caching for Tramp |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
2 |
100908 | 3 ;; Copyright (C) 2000, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
4 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
5 ;; Author: Daniel Pittman <daniel@inanna.danann.net> |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
6 ;; Michael Albinus <michael.albinus@gmx.de> |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
7 ;; Keywords: comm, processes |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
8 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
10 |
94677
91e5880a36c1
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94404
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
94677
91e5880a36c1
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94404
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
91e5880a36c1
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94404
diff
changeset
|
14 ;; (at your option) any later version. |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
15 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
20 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
94677
91e5880a36c1
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94404
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
23 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
24 ;;; Commentary: |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
25 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
26 ;; An implementation of information caching for remote files. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
27 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
28 ;; Each connection, identified by a vector [method user host |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
29 ;; localname] or by a process, has a unique cache. We distinguish 3 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
30 ;; kind of caches, depending on the key: |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
31 ;; |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
32 ;; - localname is NIL. This are reusable properties. Examples: |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
33 ;; "remote-shell" identifies the POSIX shell to be called on the |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
34 ;; remote host, or "perl" is the command to be called on the remote |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
35 ;; host, when starting a Perl script. These properties are saved in |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
36 ;; the file `tramp-persistency-file-name'. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
37 ;; |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
38 ;; - localname is a string. This are temporary properties, which are |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
39 ;; related to the file localname is referring to. Examples: |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
40 ;; "file-exists-p" is t or nile, depending on the file existence, or |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
41 ;; "file-attributes" caches the result of the function |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
42 ;; `file-attributes'. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
43 ;; |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
44 ;; - The key is a process. This are temporary properties related to |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
45 ;; an open connection. Examples: "scripts" keeps shell script |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
46 ;; definitions already sent to the remote shell, "last-cmd-time" is |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
47 ;; the time stamp a command has been sent to the remote process. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
48 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
49 ;;; Code: |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
50 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
51 ;; Pacify byte-compiler. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
52 (eval-when-compile |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
53 (require 'cl) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
54 (autoload 'tramp-message "tramp") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
55 (autoload 'tramp-tramp-file-p "tramp") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
56 ;; We cannot autoload macro `with-parsed-tramp-file-name', it |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
57 ;; results in problems of byte-compiled code. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
58 (autoload 'tramp-dissect-file-name "tramp") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
59 (autoload 'tramp-file-name-method "tramp") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
60 (autoload 'tramp-file-name-user "tramp") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
61 (autoload 'tramp-file-name-host "tramp") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
62 (autoload 'tramp-file-name-localname "tramp") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
63 (autoload 'time-stamp-string "time-stamp")) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
64 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
65 ;;; -- Cache -- |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
66 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
67 (defvar tramp-cache-data (make-hash-table :test 'equal) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
68 "Hash table for remote files properties.") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
69 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
70 (defcustom tramp-persistency-file-name |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
71 (cond |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
72 ;; GNU Emacs. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
73 ((and (boundp 'user-emacs-directory) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
74 (stringp (symbol-value 'user-emacs-directory)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
75 (file-directory-p (symbol-value 'user-emacs-directory))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
76 (expand-file-name "tramp" (symbol-value 'user-emacs-directory))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
77 ((and (not (featurep 'xemacs)) (file-directory-p "~/.emacs.d/")) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
78 "~/.emacs.d/tramp") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
79 ;; XEmacs. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
80 ((and (boundp 'user-init-directory) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
81 (stringp (symbol-value 'user-init-directory)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
82 (file-directory-p (symbol-value 'user-init-directory))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
83 (expand-file-name "tramp" (symbol-value 'user-init-directory))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
84 ((and (featurep 'xemacs) (file-directory-p "~/.xemacs/")) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
85 "~/.xemacs/tramp") |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
86 ;; For users without `~/.emacs.d/' or `~/.xemacs/'. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
87 (t "~/.tramp")) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
88 "File which keeps connection history for Tramp connections." |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
89 :group 'tramp |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
90 :type 'file) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
91 |
100088
cc6585cecaaf
* net/tramp-cache.el (tramp-cache-data-changed): New defvar.
Michael Albinus <michael.albinus@gmx.de>
parents:
97980
diff
changeset
|
92 (defvar tramp-cache-data-changed nil |
cc6585cecaaf
* net/tramp-cache.el (tramp-cache-data-changed): New defvar.
Michael Albinus <michael.albinus@gmx.de>
parents:
97980
diff
changeset
|
93 "Whether persistent cache data have been changed.") |
cc6585cecaaf
* net/tramp-cache.el (tramp-cache-data-changed): New defvar.
Michael Albinus <michael.albinus@gmx.de>
parents:
97980
diff
changeset
|
94 |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
95 (defun tramp-get-file-property (vec file property default) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
96 "Get the PROPERTY of FILE from the cache context of VEC. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
97 Returns DEFAULT if not set." |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
98 ;; Unify localname. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
99 (setq vec (copy-sequence vec)) |
94404
9ce39a6373c9
* net/tramp.el (tramp-handle-make-symbolic-link)
Michael Albinus <michael.albinus@gmx.de>
parents:
91485
diff
changeset
|
100 (aset vec 3 (tramp-run-real-handler 'directory-file-name (list file))) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
101 (let* ((hash (or (gethash vec tramp-cache-data) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
102 (puthash vec (make-hash-table :test 'equal) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
103 tramp-cache-data))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
104 (value (if (hash-table-p hash) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
105 (gethash property hash default) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
106 default))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
107 (tramp-message vec 8 "%s %s %s" file property value) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
108 value)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
109 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
110 (defun tramp-set-file-property (vec file property value) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
111 "Set the PROPERTY of FILE to VALUE, in the cache context of VEC. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
112 Returns VALUE." |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
113 ;; Unify localname. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
114 (setq vec (copy-sequence vec)) |
94404
9ce39a6373c9
* net/tramp.el (tramp-handle-make-symbolic-link)
Michael Albinus <michael.albinus@gmx.de>
parents:
91485
diff
changeset
|
115 (aset vec 3 (tramp-run-real-handler 'directory-file-name (list file))) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
116 (let ((hash (or (gethash vec tramp-cache-data) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
117 (puthash vec (make-hash-table :test 'equal) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
118 tramp-cache-data)))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
119 (puthash property value hash) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
120 (tramp-message vec 8 "%s %s %s" file property value) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
121 value)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
122 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
123 (defun tramp-flush-file-property (vec file) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
124 "Remove all properties of FILE in the cache context of VEC." |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
125 ;; Unify localname. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
126 (setq vec (copy-sequence vec)) |
94404
9ce39a6373c9
* net/tramp.el (tramp-handle-make-symbolic-link)
Michael Albinus <michael.albinus@gmx.de>
parents:
91485
diff
changeset
|
127 (aset vec 3 (tramp-run-real-handler 'directory-file-name (list file))) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
128 (tramp-message vec 8 "%s" file) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
129 (remhash vec tramp-cache-data)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
130 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
131 (defun tramp-flush-directory-property (vec directory) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
132 "Remove all properties of DIRECTORY in the cache context of VEC. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
133 Remove also properties of all files in subdirectories." |
94404
9ce39a6373c9
* net/tramp.el (tramp-handle-make-symbolic-link)
Michael Albinus <michael.albinus@gmx.de>
parents:
91485
diff
changeset
|
134 (let ((directory (tramp-run-real-handler |
9ce39a6373c9
* net/tramp.el (tramp-handle-make-symbolic-link)
Michael Albinus <michael.albinus@gmx.de>
parents:
91485
diff
changeset
|
135 'directory-file-name (list directory)))) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
136 (tramp-message vec 8 "%s" directory) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
137 (maphash |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
138 '(lambda (key value) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
139 (when (and (stringp key) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
140 (string-match directory (tramp-file-name-localname key))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
141 (remhash key tramp-cache-data))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
142 tramp-cache-data))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
143 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
144 ;; Reverting or killing a buffer should also flush file properties. |
85802
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
145 ;; They could have been changed outside Tramp. In eshell, "ls" would |
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
146 ;; not show proper directory contents when a file has been copied or |
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
147 ;; deleted before. |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
148 (defun tramp-flush-file-function () |
97980
2570e504f856
* net/tramp-cache.el (tramp-flush-file-function): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
94677
diff
changeset
|
149 "Flush all Tramp cache properties from `buffer-file-name'." |
85802
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
150 (let ((bfn (if (stringp (buffer-file-name)) |
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
151 (buffer-file-name) |
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
152 default-directory))) |
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
153 (when (tramp-tramp-file-p bfn) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
154 (let* ((v (tramp-dissect-file-name bfn)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
155 (localname (tramp-file-name-localname v))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
156 (tramp-flush-file-property v localname))))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
157 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
158 (add-hook 'before-revert-hook 'tramp-flush-file-function) |
85802
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
159 (add-hook 'eshell-pre-command-hook 'tramp-flush-file-function) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
160 (add-hook 'kill-buffer-hook 'tramp-flush-file-function) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
161 (add-hook 'tramp-cache-unload-hook |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
162 '(lambda () |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
163 (remove-hook 'before-revert-hook |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
164 'tramp-flush-file-function) |
85802
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
165 (remove-hook 'eshell-pre-command-hook |
a69014d11d95
* net/tramp.el (tramp-maybe-open-connection): Set $LC_ALL to "C".
Michael Albinus <michael.albinus@gmx.de>
parents:
84966
diff
changeset
|
166 'tramp-flush-file-function) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
167 (remove-hook 'kill-buffer-hook |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
168 'tramp-flush-file-function))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
169 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
170 ;;; -- Properties -- |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
171 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
172 (defun tramp-get-connection-property (key property default) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
173 "Get the named PROPERTY for the connection. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
174 KEY identifies the connection, it is either a process or a vector. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
175 If the value is not set for the connection, returns DEFAULT." |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
176 ;; Unify key by removing localname from vector. Work with a copy in |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
177 ;; order to avoid side effects. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
178 (when (vectorp key) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
179 (setq key (copy-sequence key)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
180 (aset key 3 nil)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
181 (let* ((hash (gethash key tramp-cache-data)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
182 (value (if (hash-table-p hash) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
183 (gethash property hash default) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
184 default))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
185 (tramp-message key 7 "%s %s" property value) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
186 value)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
187 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
188 (defun tramp-set-connection-property (key property value) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
189 "Set the named PROPERTY of a connection to VALUE. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
190 KEY identifies the connection, it is either a process or a vector. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
191 PROPERTY is set persistent when KEY is a vector." |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
192 ;; Unify key by removing localname from vector. Work with a copy in |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
193 ;; order to avoid side effects. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
194 (when (vectorp key) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
195 (setq key (copy-sequence key)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
196 (aset key 3 nil)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
197 (let ((hash (or (gethash key tramp-cache-data) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
198 (puthash key (make-hash-table :test 'equal) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
199 tramp-cache-data)))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
200 (puthash property value hash) |
100088
cc6585cecaaf
* net/tramp-cache.el (tramp-cache-data-changed): New defvar.
Michael Albinus <michael.albinus@gmx.de>
parents:
97980
diff
changeset
|
201 (setq tramp-cache-data-changed t) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
202 ;; This function is called also during initialization of |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
203 ;; tramp-cache.el. `tramp-message´ is not defined yet at this |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
204 ;; time, so we ignore the corresponding error. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
205 (condition-case nil |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
206 (tramp-message key 7 "%s %s" property value) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
207 (error nil)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
208 value)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
209 |
91485
202f9737703b
* net/tramp-cache.el (tramp-flush-connection-property): Remove EVENT.
Michael Albinus <michael.albinus@gmx.de>
parents:
87747
diff
changeset
|
210 (defun tramp-flush-connection-property (key) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
211 "Remove all properties identified by KEY. |
91485
202f9737703b
* net/tramp-cache.el (tramp-flush-connection-property): Remove EVENT.
Michael Albinus <michael.albinus@gmx.de>
parents:
87747
diff
changeset
|
212 KEY identifies the connection, it is either a process or a vector." |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
213 ;; Unify key by removing localname from vector. Work with a copy in |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
214 ;; order to avoid side effects. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
215 (when (vectorp key) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
216 (setq key (copy-sequence key)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
217 (aset key 3 nil)) |
100088
cc6585cecaaf
* net/tramp-cache.el (tramp-cache-data-changed): New defvar.
Michael Albinus <michael.albinus@gmx.de>
parents:
97980
diff
changeset
|
218 (setq tramp-cache-data-changed t) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
219 (remhash key tramp-cache-data)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
220 |
85943
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
221 (defun tramp-cache-print (table) |
85962
7f134b676a0c
* net/tramp.el (tramp-handle-substitute-in-file-name): Don't
Michael Albinus <michael.albinus@gmx.de>
parents:
85943
diff
changeset
|
222 "Print hash table TABLE." |
85943
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
223 (when (hash-table-p table) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
224 (let (result) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
225 (maphash |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
226 '(lambda (key value) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
227 (let ((tmp (format |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
228 "(%s %s)" |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
229 (if (processp key) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
230 (prin1-to-string (prin1-to-string key)) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
231 (prin1-to-string key)) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
232 (if (hash-table-p value) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
233 (tramp-cache-print value) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
234 (if (bufferp value) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
235 (prin1-to-string (prin1-to-string value)) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
236 (prin1-to-string value)))))) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
237 (setq result (if result (concat result " " tmp) tmp)))) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
238 table) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
239 result))) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
240 |
85962
7f134b676a0c
* net/tramp.el (tramp-handle-substitute-in-file-name): Don't
Michael Albinus <michael.albinus@gmx.de>
parents:
85943
diff
changeset
|
241 (defun tramp-list-connections () |
7f134b676a0c
* net/tramp.el (tramp-handle-substitute-in-file-name): Don't
Michael Albinus <michael.albinus@gmx.de>
parents:
85943
diff
changeset
|
242 "Return a list of all known connection vectors according to `tramp-cache'." |
85943
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
243 (let (result) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
244 (maphash |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
245 '(lambda (key value) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
246 (when (and (vectorp key) (null (aref key 3))) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
247 (add-to-list 'result key))) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
248 tramp-cache-data) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
249 result)) |
85b6f7d4aca8
* net/tramp.el (top): Don't autoload `tramp-cache-print'.
Michael Albinus <michael.albinus@gmx.de>
parents:
85802
diff
changeset
|
250 |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
251 (defun tramp-dump-connection-properties () |
85962
7f134b676a0c
* net/tramp.el (tramp-handle-substitute-in-file-name): Don't
Michael Albinus <michael.albinus@gmx.de>
parents:
85943
diff
changeset
|
252 "Write persistent connection properties into file `tramp-persistency-file-name'." |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
253 ;; We shouldn't fail, otherwise (X)Emacs might not be able to be closed. |
100215
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
254 (condition-case nil |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
255 (when (and (hash-table-p tramp-cache-data) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
256 (not (zerop (hash-table-count tramp-cache-data))) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
257 tramp-cache-data-changed |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
258 (stringp tramp-persistency-file-name)) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
259 (let ((cache (copy-hash-table tramp-cache-data))) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
260 ;; Remove temporary data. |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
261 (maphash |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
262 '(lambda (key value) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
263 (if (and (vectorp key) (not (tramp-file-name-localname key))) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
264 (progn |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
265 (remhash "process-name" value) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
266 (remhash "process-buffer" value)) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
267 (remhash key cache))) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
268 cache) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
269 ;; Dump it. |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
270 (with-temp-buffer |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
271 (insert |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
272 ";; -*- emacs-lisp -*-" |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
273 ;; `time-stamp-string' might not exist in all (X)Emacs flavors. |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
274 (condition-case nil |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
275 (progn |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
276 (format |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
277 " <%s %s>\n" |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
278 (time-stamp-string "%02y/%02m/%02d %02H:%02M:%02S") |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
279 tramp-persistency-file-name)) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
280 (error "\n")) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
281 ";; Tramp connection history. Don't change this file.\n" |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
282 ";; You can delete it, forcing Tramp to reapply the checks.\n\n" |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
283 (with-output-to-string |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
284 (pp (read (format "(%s)" (tramp-cache-print cache)))))) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
285 (write-region |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
286 (point-min) (point-max) tramp-persistency-file-name)))) |
41af808a3cfa
* net/tramp-cache.el (tramp-dump-connection-properties): Polish
Michael Albinus <michael.albinus@gmx.de>
parents:
100088
diff
changeset
|
287 (error nil))) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
288 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
289 (add-hook 'kill-emacs-hook 'tramp-dump-connection-properties) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
290 (add-hook 'tramp-cache-unload-hook |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
291 '(lambda () |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
292 (remove-hook 'kill-emacs-hook |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
293 'tramp-dump-connection-properties))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
294 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
295 (defun tramp-parse-connection-properties (method) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
296 "Return a list of (user host) tuples allowed to access for METHOD. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
297 This function is added always in `tramp-get-completion-function' |
97980
2570e504f856
* net/tramp-cache.el (tramp-flush-file-function): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
94677
diff
changeset
|
298 for all methods. Resulting data are derived from connection history." |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
299 (let (res) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
300 (maphash |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
301 '(lambda (key value) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
302 (if (and (vectorp key) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
303 (string-equal method (tramp-file-name-method key)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
304 (not (tramp-file-name-localname key))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
305 (push (list (tramp-file-name-user key) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
306 (tramp-file-name-host key)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
307 res))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
308 tramp-cache-data) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
309 res)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
310 |
82324
5399c02bfd07
* net/tramp.el (tramp-wrong-passwd-regexp): Make the regexp more
Michael Albinus <michael.albinus@gmx.de>
parents:
82201
diff
changeset
|
311 ;; Read persistent connection history. |
84406
38bcf4ef30c3
* net/tramp.el (top): Remove declarations of `tramp-gw-*' symbols,
Michael Albinus <michael.albinus@gmx.de>
parents:
82324
diff
changeset
|
312 (when (and (stringp tramp-persistency-file-name) |
38bcf4ef30c3
* net/tramp.el (top): Remove declarations of `tramp-gw-*' symbols,
Michael Albinus <michael.albinus@gmx.de>
parents:
82324
diff
changeset
|
313 (zerop (hash-table-count tramp-cache-data))) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
314 (condition-case err |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
315 (with-temp-buffer |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
316 (insert-file-contents tramp-persistency-file-name) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
317 (let ((list (read (current-buffer))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
318 element key item) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
319 (while (setq element (pop list)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
320 (setq key (pop element)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
321 (while (setq item (pop element)) |
100088
cc6585cecaaf
* net/tramp-cache.el (tramp-cache-data-changed): New defvar.
Michael Albinus <michael.albinus@gmx.de>
parents:
97980
diff
changeset
|
322 (tramp-set-connection-property key (pop item) (car item))))) |
cc6585cecaaf
* net/tramp-cache.el (tramp-cache-data-changed): New defvar.
Michael Albinus <michael.albinus@gmx.de>
parents:
97980
diff
changeset
|
323 (setq tramp-cache-data-changed nil)) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
324 (file-error |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
325 ;; Most likely because the file doesn't exist yet. No message. |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
326 (clrhash tramp-cache-data)) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
327 (error |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
328 ;; File is corrupted. |
84406
38bcf4ef30c3
* net/tramp.el (top): Remove declarations of `tramp-gw-*' symbols,
Michael Albinus <michael.albinus@gmx.de>
parents:
82324
diff
changeset
|
329 (message "Tramp persistency file '%s' is corrupted: %s" |
38bcf4ef30c3
* net/tramp.el (top): Remove declarations of `tramp-gw-*' symbols,
Michael Albinus <michael.albinus@gmx.de>
parents:
82324
diff
changeset
|
330 tramp-persistency-file-name (error-message-string err)) |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
331 (clrhash tramp-cache-data)))) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
332 |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
333 (provide 'tramp-cache) |
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
334 |
81769 | 335 ;; arch-tag: ee1739b7-7628-408c-9b96-d11a74b05d26 |
81758
f03856eb136b
* files.el (file-remote-p): Introduce optional parameter CONNECTED.
Michael Albinus <michael.albinus@gmx.de>
parents:
diff
changeset
|
336 ;;; tramp-cache.el ends here |