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

Rename shell-command-width to async-shell-command-width (bug#35055)

Browse Source 
* 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.
This commit is contained in:
Juri Linkov 2019-05-05 22:27:33 +03:00
parent 81487bf891
commit df9b56ecff
6 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
doc/emacs/misc.texi
View File

@ -775,6 +775,13 @@ documentation for more possibilities.
displayed only when the command generates output, set
@code{async-shell-command-display-buffer} to @code{nil}.
@vindex async-shell-command-width
The option @code{async-shell-command-width} defines the number of display
columns available for output of asynchronous shell commands.
A positive integer tells the shell to use that number of columns for
command output. The default value is @code{nil} that means to use
the same number of columns as provided by the shell.
@kindex M-|
@findex shell-command-on-region
@kbd{M-|} (@code{shell-command-on-region}) is like @kbd{M-!}, but

4
doc/misc/tramp.texi
View File

@ -3093,9 +3093,9 @@ uses @file{/system/bin/sh}). Like the variables in the previous
section, these variables can be changed via connection-local
variables.
@vindex shell-command-width
@vindex async-shell-command-width
@vindex COLUMNS@r{, environment variable}
If Emacs supports the variable @code{shell-command-width} (since Emacs
If Emacs supports the variable @code{async-shell-command-width} (since Emacs
27.1), @value{tramp} cares about its value for asynchronous shell
commands. It specifies the number of display columns for command
output. For synchronous shell commands, a similar effect can be

4
etc/NEWS
View File

@ -1119,8 +1119,8 @@ variable for remote shells. It still defaults to "/bin/sh".
** Single shell commands
---
*** 'shell-command-width' defines the number of display columns
available for output of asynchronous or remote shell commands.
*** 'async-shell-command-width' defines the number of display columns
available for output of asynchronous shell commands.
** Pcomplete

6
lisp/net/tramp.el
View File

@ -3640,10 +3640,10 @@ support symbolic links."
(if (and (not current-buffer-p) (integerp asynchronous))
(let ((tramp-remote-process-environment
;; `shell-command-width' has been introduced with Emacs 27.1.
(if (natnump (bound-and-true-p shell-command-width))
;; `async-shell-command-width' has been introduced with Emacs 27.1.
(if (natnump (bound-and-true-p async-shell-command-width))
(cons (format "COLUMNS=%d"
(bound-and-true-p shell-command-width))
(bound-and-true-p async-shell-command-width))
tramp-remote-process-environment)
tramp-remote-process-environment)))
(prog1

6
lisp/simple.el
View File

@ -3353,7 +3353,7 @@ is output."
:group 'shell
:version "26.1")
(defcustom shell-command-width nil
(defcustom async-shell-command-width nil
"Number of display columns available for asynchronous shell command output.
If nil, use the shell default number (usually 80 columns).
If a positive integer, tell the shell to use that number of columns for
@ -3627,8 +3627,8 @@ impose the use of a shell (with its need to quote arguments)."
(shell-command--save-pos-or-erase)
(setq default-directory directory)
(let ((process-environment
(if (natnump shell-command-width)
(cons (format "COLUMNS=%d" shell-command-width)
(if (natnump async-shell-command-width)
(cons (format "COLUMNS=%d" async-shell-command-width)
process-environment)
process-environment)))
(setq proc

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

@ -4192,18 +4192,17 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
;; Cleanup.
(ignore-errors (delete-file tmp-name)))
;; Test `shell-command-width' of `async-shell-command'.
;; Since Emacs 27.1.
(when (and (boundp 'shell-command-width)
;; Test `async-shell-command-width'. Since Emacs 27.1.
(when (and (boundp 'async-shell-command-width)
(zerop (call-process "tput" nil nil nil "cols"))
(zerop (process-file "tput" nil nil nil "cols")))
(let (shell-command-width)
(let (async-shell-command-width)
(should
(string-equal
(format "%s\n" (car (process-lines "tput" "cols")))
(tramp--test-shell-command-to-string-asynchronously
"tput cols")))
(setq shell-command-width 1024)
(setq async-shell-command-width 1024)
(should
(string-equal
"1024\n"