Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/files-x.el (connection-local-criteria-for-default-directory):

Browse source 
Add optional argument APPLICATION.
This commit is contained in:
Michael Albinus 2021-03-22 17:47:45 +01:00
parent cb5d1fe1aa
commit 4d944f6ddb
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/files-x.el
View file

@ -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)