master dbc5fafa311 3/4: * lisp/net/tramp.el (tramp-local-host-regexp): Adapt :version.

[Michael Albinus]

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

    * lisp/net/tramp.el (tramp-local-host-regexp): Adapt :version.
---
 lisp/net/tramp-archive.el | 4 ++--
 lisp/net/tramp-compat.el  | 2 +-
 lisp/net/tramp.el         | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index 298cacdb0e0..752462d8fa3 100644
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -389,7 +389,7 @@ arguments to pass to the OPERATION."
   "Add archive file name handler to `file-name-handler-alist'."
   (when (and tramp-archive-enabled
              (not
-              (rassq 'tramp-archive-file-name-handler 
file-name-handler-alist)))
+              (rassq #'tramp-archive-file-name-handler 
file-name-handler-alist)))
     (add-to-list 'file-name-handler-alist
                 (cons (tramp-archive-autoload-file-name-regexp)
                       #'tramp-archive-autoload-file-name-handler))
@@ -443,7 +443,7 @@ arguments to pass to the OPERATION."
   (and (tramp-archive-file-name-p name)
        (match-string 2 name)))
 
-(defvar tramp-archive-hash (make-hash-table :test 'equal)
+(defvar tramp-archive-hash (make-hash-table :test #'equal)
   "Hash table for archive local copies.
 The hash key is the archive name.  The value is a cons of the
 used `tramp-file-name' structure for tramp-gvfs, and the file
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 87b20b982f9..061766090a0 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -309,7 +309,7 @@ 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)
+    (defalias 'tramp-compat-connection-local-p 'connection-local-p)
   (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)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 7800efc2a5e..8e114912527 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -557,7 +557,7 @@ host runs a restricted shell, it shall be added to this 
list, too."
       eos)
   "Host names which are regarded as local host.
 If the local host runs a chrooted environment, set this to nil."
-  :version "30.1"
+  :version "29.3"
   :type '(choice (const :tag "Chrooted environment" nil)
                 (regexp :tag "Host regexp")))