# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1208315398 0
# Node ID 6457a4cc8690853d500a56f874a578633812b2a7
# Parent  7ab68bf3a9050292733ee33ea0981d985be199f8
(proced-command-alist): Add support for darwin.

diff -r 7ab68bf3a905 -r 6457a4cc8690 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Apr 16 03:07:49 2008 +0000
+++ b/lisp/ChangeLog	Wed Apr 16 03:09:58 2008 +0000
@@ -1,3 +1,7 @@
+2008-04-16  Markus Triska  <markus.triska@gmx.at>
+
+	* proced.el (proced-command-alist): Add support for darwin.
+
 2008-04-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* proced.el (proced-mode): Redefine as just the major-mode.
diff -r 7ab68bf3a905 -r 6457a4cc8690 lisp/proced.el
--- a/lisp/proced.el	Wed Apr 16 03:07:49 2008 +0000
+++ b/lisp/proced.el	Wed Apr 16 03:09:58 2008 +0000
@@ -62,6 +62,9 @@
            ("emacs" ("ps" "--pid" ,(number-to-string (emacs-pid))
                      "--ppid" ,(number-to-string (emacs-pid))
                       "uwww") 2)))
+        ((memq system-type '(darwin))
+         `(("user" ("ps" "-u" ,(number-to-string (user-uid))) 2)
+           ("all" ("ps" "-Au") 2)))
         (t ; standard syntax doesn't allow us to list running processes only
          `(("user" ("ps" "-fu" ,(number-to-string (user-uid))) 2)
            ("all" ("ps" "-ef") 2))))