]> git.eshelyaron.com Git - emacs.git/commitdiff
Some Tramp cleanup on MS Windows
authorMichael Albinus <michael.albinus@gmx.de>
Sun, 29 May 2022 11:31:32 +0000 (13:31 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Sun, 29 May 2022 11:31:32 +0000 (13:31 +0200)
* lisp/net/tramp.el (tramp-restricted-shell-hosts-alist): Do not add
localhost when `tramp-encoding-shell' is a POSIX shell.

* test/lisp/net/tramp-tests.el (tramp-test31-interrupt-process):
Skip on MS Windows.

lisp/net/tramp.el
test/lisp/net/tramp-tests.el

index 63ea8a283c6d78f41748019953a89fe6faf574e9..3ee116913959bc216a887132a90a5dc7f4f71b61 100644 (file)
@@ -497,7 +497,8 @@ interpreted as a regular expression which always matches."
 ;; either lower case or upper case letters.  See
 ;; <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=38079#20>.
 (defcustom tramp-restricted-shell-hosts-alist
-  (when (eq system-type 'windows-nt)
+  (when (and (eq system-type 'windows-nt)
+             (not (string-match-p "sh$" tramp-encoding-shell)))
     (list (format "\\`\\(%s\\|%s\\)\\'"
                  (regexp-quote (downcase tramp-system-name))
                  (regexp-quote (upcase tramp-system-name)))))
index dbf62dbc1cf72da490f49f38e69b1a5e5a310b73..61fa6a5ae4ee33a5bc126857915e779a4fccb22e 100644 (file)
@@ -5019,6 +5019,7 @@ If UNSTABLE is non-nil, the test is tagged as `:unstable'."
                     '(:unstable)))
   (skip-unless (tramp--test-enabled))
   (skip-unless (tramp--test-sh-p))
+  (skip-unless (not (tramp--test-windows-nt-p)))
   (skip-unless (not (tramp--test-crypt-p)))
   ;; Since Emacs 26.1.
   (skip-unless (boundp 'interrupt-process-functions))