diff options
author | Miles Bader <miles@gnu.org> | 2009-02-23 05:06:36 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2009-02-23 05:06:36 +0000 |
commit | a20878b6d8caccb2b5bf38f02dccf28d10ea2223 (patch) | |
tree | 1575f6f7a73e85e06d700c365e11a8e6921cbf75 /lisp/proced.el | |
parent | 0038d4781b4a25175cd85a5bddb5c845f1d89ef2 (diff) | |
download | emacs-a20878b6d8caccb2b5bf38f02dccf28d10ea2223.tar.gz |
Rename `system-process-attributes' to `process-attributes'
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1553
Diffstat (limited to 'lisp/proced.el')
-rw-r--r-- | lisp/proced.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/proced.el b/lisp/proced.el index fc4d6d01cf9..38163b17e8b 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -32,12 +32,12 @@ ;; - allow "sudo kill PID", "renice PID" ;; ;; Thoughts and Ideas -;; - Currently, `system-process-attributes' returns the list of +;; - Currently, `process-attributes' returns the list of ;; command-line arguments of a process as one concatenated string. ;; This format is compatible with `shell-command'. Also, under ;; MS-Windows, the command-line arguments are actually stored as a ;; single string, so that it is impossible to reverse-engineer it back -;; into separate arguments. Alternatively, `system-process-attributes' +;; into separate arguments. Alternatively, `process-attributes' ;; could (try to) return a list of strings that correspond to individual ;; command-line arguments. Then one could feed such a list of ;; command-line arguments into `call-process' or `start-process'. @@ -94,7 +94,7 @@ the external command (usually \"kill\")." ;; It would be neat if one could temporarily override the following ;; predefined rules. (defcustom proced-grammar-alist - '( ;; attributes defined in `system-process-attributes' + '( ;; attributes defined in `process-attributes' (euid "EUID" "%d" right proced-< nil (euid pid) (nil t nil)) (user "USER" nil left proced-string-lessp nil (user pid) (nil t nil)) (egid "EGID" "%d" right proced-< nil (egid euid pid) (nil t nil)) @@ -218,7 +218,7 @@ If REFINER is nil no refinement is done." This variable extends the functionality of `proced-process-attributes'. Each function is called with one argument, the list of attributes of a system process. It returns a cons cell of the form (KEY . VALUE) -like `system-process-attributes'. This cons cell is appended to the list +like `process-attributes'. This cons cell is appended to the list returned by `proced-process-attributes'. If the function returns nil, the value is ignored." :group 'proced @@ -1539,7 +1539,7 @@ the process is ignored." ;; lists are ignored? When would such processes be of interest? (let (process-alist attributes attr) (dolist (pid (or pid-list (list-system-processes)) process-alist) - (when (setq attributes (system-process-attributes pid)) + (when (setq attributes (process-attributes pid)) (setq attributes (cons (cons 'pid pid) attributes)) (dolist (fun proced-custom-attributes) (if (setq attr (funcall fun attributes)) |