diff options
| author | Daniel Colascione <dancol@dancol.org> | 2015-03-24 10:23:14 -0700 |
|---|---|---|
| committer | Daniel Colascione <dancol@dancol.org> | 2015-03-24 10:23:24 -0700 |
| commit | 23a98c7a538fd6da43eba522c3db8e53c1edd1ac (patch) | |
| tree | 4348d5215881991d9302a7fbe8bc2ffa1576edf3 | |
| parent | 71fdbd770bf06ad48bcb165e85b59778abc9ed06 (diff) | |
| download | emacs-23a98c7a538fd6da43eba522c3db8e53c1edd1ac.tar.gz | |
Make process-running-child-p return foreground process group ID
* etc/NEWS: Mention change to `process-running-child-p`.
* src/process.c (Fprocess_running_child_p): Return number identifier of
the foreground process group if we know it.
| -rw-r--r-- | etc/ChangeLog | 4 | ||||
| -rw-r--r-- | etc/NEWS | 3 | ||||
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/process.c | 9 |
4 files changed, 18 insertions, 3 deletions
diff --git a/etc/ChangeLog b/etc/ChangeLog index e146f786f6f..d6b6e299113 100644 --- a/etc/ChangeLog +++ b/etc/ChangeLog @@ -1,3 +1,7 @@ +2015-03-24 Daniel Colascione <dancol@dancol.org> + + * NEWS: Mention change to `process-running-child-p`. + 2015-03-23 Daiki Ueno <ueno@gnu.org> * NEWS: Mention `make-process'. @@ -628,6 +628,9 @@ active region handling. ** `cl-the' now asserts that its argument is of the given type. +** `process-running-child-p` may now return a numeric process +group ID instead of `t'. + +++ ** Mouse click events on mode line or header line no longer include any reference to a buffer position. The 6th member of the mouse diff --git a/src/ChangeLog b/src/ChangeLog index 99b7ec731fe..815c117308b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2015-03-24 Daniel Colascione <dancol@dancol.org> + + * process.c (Fprocess_running_child_p): Return number identifier of + the foreground process group if we know it. + 2015-03-23 Paul Eggert <eggert@cs.ucla.edu> Minor refactoring of new Fmake_process code diff --git a/src/process.c b/src/process.c index dd61f3008de..3fe8644b48a 100644 --- a/src/process.c +++ b/src/process.c @@ -5739,9 +5739,10 @@ emacs_get_tty_pgrp (struct Lisp_Process *p) DEFUN ("process-running-child-p", Fprocess_running_child_p, Sprocess_running_child_p, 0, 1, 0, - doc: /* Return t if PROCESS has given the terminal to a child. -If the operating system does not make it possible to find out, -return t unconditionally. */) + doc: /* Return non-nil if PROCESS has given the terminal to a +child. If the operating system does not make it possible to find out, +return t. If we can find out, return the numeric ID of the foreground +process group. */) (Lisp_Object process) { /* Initialize in case ioctl doesn't exist or gives an error, @@ -5764,6 +5765,8 @@ return t unconditionally. */) if (gid == p->pid) return Qnil; + if (gid != -1) + return make_number (gid); return Qt; } |