From 34550ea8ce4b5e306a537abd9457bba5c72fca94 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 25 Sep 2023 12:59:52 +0200 Subject: [PATCH] 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. --- test/lisp/net/tramp-tests.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.2