[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 33aa46fe94f: Improve tramp-compat-connection-local-p

From: Michael Albinus
Subject: master 33aa46fe94f: Improve tramp-compat-connection-local-p
Date: Wed, 13 Dec 2023 07:20:59 -0500 (EST)

branch: master
commit 33aa46fe94f5551d3158a6b2dcb3e81e908bdbd1
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    Improve tramp-compat-connection-local-p
    * lisp/net/tramp-compat.el (tramp-compat-connection-local-p):
    Make it compatible with Emacs 27.
 lisp/net/tramp-compat.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 820d9f07883..e05f371f406 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -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 
     `(let (connection-local-variables-alist file-local-variables-alist)
-       (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))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]