]> git.eshelyaron.com Git - emacs.git/commitdiff
Improve Emacs 30 compatibility in tramp-tests.el (don't merge)
authorMichael Albinus <michael.albinus@gmx.de>
Mon, 25 Sep 2023 10:59:52 +0000 (12:59 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Mon, 25 Sep 2023 10:59:52 +0000 (12:59 +0200)
* 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

index 3c2ec9275c68114bf62b18aef3f4c51b431fbdf9..24f17c2cf7415e216f7e06a0636e06fe4105e1af 100644 (file)
@@ -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