(list_processes_1): Print tty name.

1 files changed, 9 insertions, 2 deletions

diff --git a/src/process.c b/src/process.c
index 2ac2a811410..6af8974c7a6 100644
--- a/src/process.c
+++ b/src/process.c
@@ -880,8 +880,8 @@ list_processes_1 ()
   current_buffer->truncate_lines = Qt;
 
   write_string ("\
-Proc         Status   Buffer         Command\n\
-----         ------   ------         -------\n", -1);
+Proc         Status   Buffer         Tty         Command\n\
+----         ------   ------         ---         -------\n", -1);
 
   for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
     {
@@ -949,6 +949,13 @@ Proc         Status   Buffer         Command\n\
 
       Findent_to (make_number (37), minspace);
 
+      if (STRINGP (p->tty_name))
+        Finsert (1, &p->tty_name);
+      else
+        insert_string ("(none)");
+
+      Findent_to (make_number (49), minspace);
+
       if (NETCONN_P (proc))
         {
           sprintf (tembuf, "(network stream connection to %s)\n",