diff options
| author | Juri Linkov | 2019-05-05 22:27:33 +0300 |
|---|---|---|
| committer | Juri Linkov | 2019-05-05 22:27:33 +0300 |
| commit | df9b56ecff43b64f39e98ab118fe9a0f299882c4 (patch) | |
| tree | a7689e9ea9e4470facb5e815e71dd24dd14c92a2 /test | |
| parent | 81487bf89122ef0f369690e421740d38dbc17e23 (diff) | |
| download | emacs-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.el | 9 |
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" |