]> git.eshelyaron.com Git - emacs.git/commitdiff
Minor fix in tramp-test32-shell-command
authorMichael Albinus <michael.albinus@gmx.de>
Wed, 5 Feb 2020 10:41:14 +0000 (11:41 +0100)
committerMichael Albinus <michael.albinus@gmx.de>
Wed, 5 Feb 2020 10:41:14 +0000 (11:41 +0100)
* test/lisp/net/tramp-tests.el (tramp-test32-shell-command):
Set `default-directory'.

test/lisp/net/tramp-tests.el

index 08f5c60e3299d3012f518e1d8911ba968cf91f3d..a47c60c65ba99356edba6c7999f5546bebda7637 100644 (file)
@@ -4541,6 +4541,7 @@ INPUT, if non-nil, is a string sent to the process."
   ;; but seems to work since Emacs 27.1 only.
   (when (and (tramp--test-sh-p) (tramp--test-emacs27-p))
     (let* ((async-shell-command-width 1024)
+          (default-directory tramp-test-temporary-file-directory)
           (cols (ignore-errors
                   (read (tramp--test-shell-command-to-string-asynchronously
                          "tput cols")))))
@@ -5844,7 +5845,7 @@ Use the `ls' command."
   ;; Since Emacs 27.1.
   (skip-unless (fboundp 'file-system-info))
 
-  ;; `file-system-info' exists since Emacs 27.  We don't want to see
+  ;; `file-system-info' exists since Emacs 27.1.  We don't want to see
   ;; compiler warnings for older Emacsen.
   (let ((fsi (with-no-warnings
               (file-system-info tramp-test-temporary-file-directory))))