diff options
| author | Glenn Morris | 2018-01-15 13:53:40 -0800 |
|---|---|---|
| committer | Glenn Morris | 2018-01-15 13:53:40 -0800 |
| commit | 9bd8f01cd6613795e6a7bb228b1aff342cc88c8b (patch) | |
| tree | aa566ea564a3d8e344c3015b997a6478e2010b5d /src/process.c | |
| parent | e6b1df09551fc02aedcba4dbf5ee91dad4686e9a (diff) | |
| parent | 2c0cfa64553dc1d4d376b42b56e52a007222736b (diff) | |
| download | emacs-9bd8f01cd6613795e6a7bb228b1aff342cc88c8b.tar.gz emacs-9bd8f01cd6613795e6a7bb228b1aff342cc88c8b.zip | |
Merge from origin/emacs-26
2c0cfa6455 * ChangeLog.3: Update
4387bb44ae Update authors
bce51bd6f7 * lisp/gnus/message.el (message-do-auto-fill): Prevent do-...
bd2a2a1e84 Improve documentation of etags
7ba75b9637 Teach etags new interpreters for some languages
1f7f03742d * lisp/emacs-lisp/generator.el (iter-defun): Add 'doc-stri...
dbb4aac212 * lisp/emacs-lisp/syntax.el (syntax-propertize): Fix bug#2...
80463a43da Improve documentation of fill-separate-heterogeneous-words...
4bd2416d55 Fix documentation of some x-* functions
9c2b11484f Inherit query-on-exit flag to stderr process (Bug#30031)
3efb1e7def Fix Bug#30057
a9b884c60f Tag some unstable tests, and skip by default (bug#24503)
# Conflicts:
# test/lisp/emacs-lisp/eieio-tests/eieio-tests.el
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/process.c b/src/process.c index d4440e472d0..e6465e2347e 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -1686,6 +1686,8 @@ usage: (make-process &rest ARGS) */) | |||
| 1686 | if (!NILP (program)) | 1686 | if (!NILP (program)) |
| 1687 | CHECK_STRING (program); | 1687 | CHECK_STRING (program); |
| 1688 | 1688 | ||
| 1689 | bool query_on_exit = NILP (Fplist_get (contact, QCnoquery)); | ||
| 1690 | |||
| 1689 | stderrproc = Qnil; | 1691 | stderrproc = Qnil; |
| 1690 | xstderr = Fplist_get (contact, QCstderr); | 1692 | xstderr = Fplist_get (contact, QCstderr); |
| 1691 | if (PROCESSP (xstderr)) | 1693 | if (PROCESSP (xstderr)) |
| @@ -1701,7 +1703,9 @@ usage: (make-process &rest ARGS) */) | |||
| 1701 | QCname, | 1703 | QCname, |
| 1702 | concat2 (name, build_string (" stderr")), | 1704 | concat2 (name, build_string (" stderr")), |
| 1703 | QCbuffer, | 1705 | QCbuffer, |
| 1704 | Fget_buffer_create (xstderr)); | 1706 | Fget_buffer_create (xstderr), |
| 1707 | QCnoquery, | ||
| 1708 | query_on_exit ? Qnil : Qt); | ||
| 1705 | } | 1709 | } |
| 1706 | 1710 | ||
| 1707 | proc = make_process (name); | 1711 | proc = make_process (name); |
| @@ -1715,7 +1719,7 @@ usage: (make-process &rest ARGS) */) | |||
| 1715 | pset_filter (XPROCESS (proc), Fplist_get (contact, QCfilter)); | 1719 | pset_filter (XPROCESS (proc), Fplist_get (contact, QCfilter)); |
| 1716 | pset_command (XPROCESS (proc), Fcopy_sequence (command)); | 1720 | pset_command (XPROCESS (proc), Fcopy_sequence (command)); |
| 1717 | 1721 | ||
| 1718 | if (tem = Fplist_get (contact, QCnoquery), !NILP (tem)) | 1722 | if (!query_on_exit) |
| 1719 | XPROCESS (proc)->kill_without_query = 1; | 1723 | XPROCESS (proc)->kill_without_query = 1; |
| 1720 | if (tem = Fplist_get (contact, QCstop), !NILP (tem)) | 1724 | if (tem = Fplist_get (contact, QCstop), !NILP (tem)) |
| 1721 | pset_command (XPROCESS (proc), Qt); | 1725 | pset_command (XPROCESS (proc), Qt); |