mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

Fix tramp-sh-handle-make-process; don't merge with master

Browse Source 
* lisp/net/tramp-sh.el (tramp-sh-handle-make-process): Accept nil
COMMAND.  (Bug#44151)

* test/lisp/net/tramp-tests.el (tramp-test29-start-file-process):
Extend test.
This commit is contained in:
Michael Albinus 2020-10-24 13:08:31 +02:00
parent c847d5998f
commit 8b1ccf5e7b
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/net/tramp-sh.el
View File

@ -2822,7 +2822,7 @@ STDERR can also be a file name."
(signal 'wrong-type-argument (list #'stringp name)))
(unless (or (null buffer) (bufferp buffer) (stringp buffer))
(signal 'wrong-type-argument (list #'stringp buffer)))
(unless (consp command)
(unless (or (null command) (consp command))
(signal 'wrong-type-argument (list #'consp command)))
(unless (or (null coding)
(and (symbolp coding) (memq coding coding-system-list))

15
test/lisp/net/tramp-tests.el
View File

@ -4282,6 +4282,21 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
;; echoes also the sent string.
(should (string-match "\\`foo" (buffer-string))))
;; Cleanup.
(ignore-errors (delete-process proc)))
;; PTY.
(unwind-protect
(with-temp-buffer
(if (not (tramp--test-sh-p))
(should-error
(start-file-process "test4" (current-buffer) nil)
:type 'wrong-type-argument)
(setq proc (start-file-process "test4" (current-buffer) nil))
(should (processp proc))
(should (equal (process-status proc) 'run))
(should (stringp (process-tty-name proc)))))
;; Cleanup.
(ignore-errors (delete-process proc))))))