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

Improve tramp-compat-connection-local-p

Browse source 
* lisp/net/tramp-compat.el (tramp-compat-connection-local-p):
Make it compatible with Emacs 27.
This commit is contained in:
Michael Albinus 2023-12-13 13:20:43 +01:00
parent 281a16d15f
commit 33aa46fe94
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/tramp-compat.el
View file

@ -310,13 +310,11 @@ Also see `ignore'."
;; Macro `connection-local-p' is new in Emacs 30.1.
(if (macrop 'connection-local-p)
(defalias 'tramp-compat-connection-local-p #'connection-local-p)
(defmacro tramp-compat-connection-local-p (variable &optional application)
"Non-nil if VARIABLE has a connection-local binding in `default-directory'.
If APPLICATION is nil, the value of
`connection-local-default-application' is used."
(defmacro tramp-compat-connection-local-p (variable)
"Non-nil if VARIABLE has a connection-local binding in `default-directory'."
`(let (connection-local-variables-alist file-local-variables-alist)
(hack-connection-local-variables
(connection-local-criteria-for-default-directory ,application))
(connection-local-criteria-for-default-directory))
(and (assq ',variable connection-local-variables-alist) t))))
(dolist (elt (all-completions "tramp-compat-" obarray 'functionp))