[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4d944f6: * lisp/files-x.el (connection-local-criteria-for-default
From: |
Michael Albinus |
Subject: |
master 4d944f6: * lisp/files-x.el (connection-local-criteria-for-default-directory): |
Date: |
Mon, 22 Mar 2021 12:47:54 -0400 (EDT) |
branch: master
commit 4d944f6ddbac8f001ee6964c9b4a154debd76558
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
* lisp/files-x.el (connection-local-criteria-for-default-directory):
Add optional argument APPLICATION.
---
lisp/files-x.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/lisp/files-x.el b/lisp/files-x.el
index 526a128..23e4562 100644
--- a/lisp/files-x.el
+++ b/lisp/files-x.el
@@ -699,13 +699,14 @@ will not be changed."
(copy-tree connection-local-variables-alist)))
(hack-local-variables-apply)))
-(defsubst connection-local-criteria-for-default-directory ()
- "Return a connection-local criteria, which represents `default-directory'."
+(defsubst connection-local-criteria-for-default-directory (&optional
application)
+ "Return a connection-local criteria, which represents `default-directory'.
+If APPLICATION is nil, the symbol `tramp' is used."
(when (file-remote-p default-directory)
- `(:application tramp
- :protocol ,(file-remote-p default-directory 'method)
- :user ,(file-remote-p default-directory 'user)
- :machine ,(file-remote-p default-directory 'host))))
+ `(:application ,(or application 'tramp)
+ :protocol ,(file-remote-p default-directory 'method)
+ :user ,(file-remote-p default-directory 'user)
+ :machine ,(file-remote-p default-directory 'host))))
;;;###autoload
(defmacro with-connection-local-variables (&rest body)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4d944f6: * lisp/files-x.el (connection-local-criteria-for-default-directory):,
Michael Albinus <=