From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 5 Jul 2023 09:33:57 +0000 (+0200)
Subject: * test/lisp/net/tramp-tests.el (tramp-test49-unload): Extend test.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c5574f9248380750cb30ea37922678c4d44a776;p=emacs.git

* test/lisp/net/tramp-tests.el (tramp-test49-unload): Extend test.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 869bc63a544..51980e335e7 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -8040,6 +8040,7 @@ Since it unloads Tramp, it shall be the last test to run."
 	      (and (functionp x) (null (autoloadp (symbol-function x))))
 	      (macrop x))
 	  (string-prefix-p "tramp" (symbol-name x))
+	  (string-match-p (rx bol "with" (| "tramp" "parsed")) (symbol-name x))
 	  ;; `tramp-completion-mode' is autoloaded in Emacs < 28.1.
 	  (not (eq 'tramp-completion-mode x))
 	  ;; `tramp-register-archive-file-name-handler' is autoloaded