From: Michael Albinus <michael.albinus@gmx.de>
Date: Mon, 25 Sep 2023 10:59:52 +0000 (+0200)
Subject: Improve Emacs 30 compatibility in tramp-tests.el (don't merge)
X-Git-Tag: emacs-29.1.90~48
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34550ea8ce4b5e306a537abd9457bba5c72fca94;p=emacs.git

Improve Emacs 30 compatibility in tramp-tests.el (don't merge)

* test/lisp/net/tramp-tests.el (tramp--test-deftest-direct-async-process)
(tramp-test30-make-process): Improve Emacs 30 compatibility.
---

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 3c2ec9275c6..24f17c2cf74 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -5313,7 +5313,7 @@ If UNSTABLE is non-nil, the test is tagged as `:unstable'."
   ;; `make-process' supports file name handlers since Emacs 27.  We
   ;; cannot use `tramp--test-always' during compilation of the macro.
   (when (let ((file-name-handler-alist '(("" . (lambda (&rest _) t)))))
-	  (ignore-errors (make-process :file-handler t)))
+	  (ignore-errors (make-process :name "" :command "" :file-handler t)))
     `(ert-deftest ,(intern (concat (symbol-name test) "-direct-async")) ()
        ;; This is the docstring.  However, it must be expanded to a
        ;; string inside the macro.  No idea.
@@ -5354,7 +5354,7 @@ If UNSTABLE is non-nil, the test is tagged as `:unstable'."
     (let ((default-directory ert-remote-temporary-file-directory)
 	  (tmp-name (tramp--test-make-temp-name nil quoted))
 	  kill-buffer-query-functions command proc)
-      (with-no-warnings (should-not (make-process)))
+      (should-not (apply #'make-process nil)) ; Use `apply' to avoid warnings.
 
       ;; Simple process.
       (unwind-protect