aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorJuri Linkov2019-05-05 22:27:33 +0300
committerJuri Linkov2019-05-05 22:27:33 +0300
commitdf9b56ecff43b64f39e98ab118fe9a0f299882c4 (patch)
treea7689e9ea9e4470facb5e815e71dd24dd14c92a2 /test
parent81487bf89122ef0f369690e421740d38dbc17e23 (diff)
downloademacs-df9b56ecff43b64f39e98ab118fe9a0f299882c4.tar.gz
emacs-df9b56ecff43b64f39e98ab118fe9a0f299882c4.zip
Rename shell-command-width to async-shell-command-width (bug#35055)
* lisp/simple.el (async-shell-command-width): * lisp/net/tramp.el (tramp-handle-shell-command): * test/lisp/net/tramp-tests.el (tramp-test32-shell-command): * doc/misc/tramp.texi (Remote processes): Rename this variable. * doc/emacs/misc.texi (Single Shell): Add async-shell-command-width.
Diffstat (limited to 'test')
-rw-r--r--test/lisp/net/tramp-tests.el9
1 files changed, 4 insertions, 5 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index cba697da18c..7d3c43408d4 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -4192,18 +4192,17 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
4192 ;; Cleanup. 4192 ;; Cleanup.
4193 (ignore-errors (delete-file tmp-name))) 4193 (ignore-errors (delete-file tmp-name)))
4194 4194
4195 ;; Test `shell-command-width' of `async-shell-command'. 4195 ;; Test `async-shell-command-width'. Since Emacs 27.1.
4196 ;; Since Emacs 27.1. 4196 (when (and (boundp 'async-shell-command-width)
4197 (when (and (boundp 'shell-command-width)
4198 (zerop (call-process "tput" nil nil nil "cols")) 4197 (zerop (call-process "tput" nil nil nil "cols"))
4199 (zerop (process-file "tput" nil nil nil "cols"))) 4198 (zerop (process-file "tput" nil nil nil "cols")))
4200 (let (shell-command-width) 4199 (let (async-shell-command-width)
4201 (should 4200 (should
4202 (string-equal 4201 (string-equal
4203 (format "%s\n" (car (process-lines "tput" "cols"))) 4202 (format "%s\n" (car (process-lines "tput" "cols")))
4204 (tramp--test-shell-command-to-string-asynchronously 4203 (tramp--test-shell-command-to-string-asynchronously
4205 "tput cols"))) 4204 "tput cols")))
4206 (setq shell-command-width 1024) 4205 (setq async-shell-command-width 1024)
4207 (should 4206 (should
4208 (string-equal 4207 (string-equal
4209 "1024\n" 4208 "1024\n"