From f5b0081187b38a4ddf71ae631453ddbe6e2e167e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 16 Apr 2008 03:09:58 +0000 Subject: [PATCH] (proced-command-alist): Add support for darwin. --- lisp/ChangeLog | 4 ++++ lisp/proced.el | 3 +++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 106ed5d2107..d5e033daf41 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-04-16 Markus Triska + + * proced.el (proced-command-alist): Add support for darwin. + 2008-04-16 Stefan Monnier * proced.el (proced-mode): Redefine as just the major-mode. diff --git a/lisp/proced.el b/lisp/proced.el index 126efdc5587..f6e6c94e166 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -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)))) -- 2.39.5