From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 10 Feb 2024 08:50:12 +0000 (+0100)
Subject: Fix warning in tramp-register-archive-autoload-file-name-handler
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa54af87d0b14c9d1ea8a5a322e2cb63b49ecf14;p=emacs.git

Fix warning in tramp-register-archive-autoload-file-name-handler

* lisp/net/tramp-archive.el
(tramp-register-archive-autoload-file-name-handler): Do not use
read syntax #' for `tramp-archive-file-name-handler', it isn't
autoloaded.

(cherry picked from commit 55aea7967604112343ff67597cbe9fc20acd9196)
---

diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el
index 752462d8fa3..59c4223794c 100644
--- a/lisp/net/tramp-archive.el
+++ b/lisp/net/tramp-archive.el
@@ -387,9 +387,11 @@ arguments to pass to the OPERATION."
 ;;;###autoload
 (progn (defun tramp-register-archive-autoload-file-name-handler ()
   "Add archive file name handler to `file-name-handler-alist'."
+  ;; Do not use read syntax #' for `tramp-archive-file-name-handler', it
+  ;; isn't autoloaded.
   (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))