diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2021-03-22 17:47:45 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2021-03-22 17:47:45 +0100 |
| commit | 4d944f6ddbac8f001ee6964c9b4a154debd76558 (patch) | |
| tree | d2b2b74aba90bb4e8ae37c2de54cda9add65617f /lisp/files-x.el | |
| parent | cb5d1fe1aa9f280d60fcb33b58fc83ace3d95081 (diff) | |
| download | emacs-4d944f6ddbac8f001ee6964c9b4a154debd76558.tar.gz emacs-4d944f6ddbac8f001ee6964c9b4a154debd76558.tar.bz2 emacs-4d944f6ddbac8f001ee6964c9b4a154debd76558.zip | |
* lisp/files-x.el (connection-local-criteria-for-default-directory):
Add optional argument APPLICATION.
Diffstat (limited to 'lisp/files-x.el')
| -rw-r--r-- | lisp/files-x.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/files-x.el b/lisp/files-x.el index 526a128623c..23e4562f4b1 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) |