(system_process_attributes): Compute Qtime and Qctime and add them to the alist.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/sysdep.c b/src/sysdep.c
index 18474c75b1b..1cf9890ecb8 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -3493,12 +3493,18 @@ system_process_attributes (Lisp_Object pid)
 	  attrs = Fcons (Fcons (Qstime,
 				ltime_from_jiffies (stime, clocks_per_sec)),
 			 attrs);
+	  attrs = Fcons (Fcons (Qtime,
+				ltime_from_jiffies (stime+utime, clocks_per_sec)),
+			 attrs);
 	  attrs = Fcons (Fcons (Qcutime,
 				ltime_from_jiffies (cutime, clocks_per_sec)),
 			 attrs);
 	  attrs = Fcons (Fcons (Qcstime,
 				ltime_from_jiffies (cstime, clocks_per_sec)),
 			 attrs);
+	  attrs = Fcons (Fcons (Qctime,
+				ltime_from_jiffies (cstime+cutime, clocks_per_sec)),
+			 attrs);
 	  attrs = Fcons (Fcons (Qpri, make_number (priority)), attrs);
 	  attrs = Fcons (Fcons (Qnice, make_number (nice)), attrs);
 	  attrs = Fcons (Fcons (Qthcount, make_fixnum_or_float (thcount_eint)), attrs);