Commit 33aa46fe authored by Michael Albinus's avatar Michael Albinus
Browse files

Improve tramp-compat-connection-local-p

* lisp/net/tramp-compat.el (tramp-compat-connection-local-p):
Make it compatible with Emacs 27.
parent 281a16d1
Pipeline #27485 failed with stages
in 3 minutes and 13 seconds
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment