Mercurial > emacs

changeset 102205:0f4ba7f17aa0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename `system-process-attributes' to `process-attributes' Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1553
author Miles Bader <miles@gnu.org>
date Mon, 23 Feb 2009 05:06:36 +0000
parents cbe2949923c1
children b6d52a7eb89f
files doc/lispref/ChangeLog doc/lispref/processes.texi etc/ChangeLog etc/NEWS lisp/ChangeLog lisp/proced.el lisp/server.el src/ChangeLog src/process.c
diffstat 9 files changed, 37 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/doc/lispref/ChangeLog	Mon Feb 23 05:06:26 2009 +0000
+++ b/doc/lispref/ChangeLog	Mon Feb 23 05:06:36 2009 +0000
@@ -1,3 +1,8 @@
+2009-02-23  Miles Bader  <miles@gnu.org>
+
+	* processes.texi (System Processes): Rename `system-process-attributes'
+	to `process-attributes'.
+
 2009-02-22  Chong Yidong  <cyd@stupidchicken.com>
 
 	* symbols.texi (Property Lists): Emphasize that property lists are
--- a/doc/lispref/processes.texi	Mon Feb 23 05:06:26 2009 +0000
+++ b/doc/lispref/processes.texi	Mon Feb 23 05:06:36 2009 +0000
@@ -1644,7 +1644,7 @@
 time.
 @end defun
 
-@defun system-process-attributes pid
+@defun process-attributes pid
 This function returns an alist of attributes for the process specified
 by its process ID @var{pid}.  Each association in the alist is of the
 form @code{(@var{key} . @var{value})}, where @var{key} designates the
--- a/etc/ChangeLog	Mon Feb 23 05:06:26 2009 +0000
+++ b/etc/ChangeLog	Mon Feb 23 05:06:36 2009 +0000
@@ -1,3 +1,7 @@
+2009-02-23  Miles Bader  <miles@gnu.org>
+
+	* NEWS: Rename `system-process-attributes' to `process-attributes'.
+
 2009-02-19  Nick Roberts  <nickrob@snap.net.nz>
 
 	* compilation.txt: Add entry for maven.
--- a/etc/NEWS	Mon Feb 23 05:06:26 2009 +0000
+++ b/etc/NEWS	Mon Feb 23 05:06:36 2009 +0000
@@ -1260,7 +1260,7 @@
 respectively.
 
 +++
-** New primitives `list-system-processes' and `system-process-attributes'
+** New primitives `list-system-processes' and `process-attributes'
 let Lisp programs access the processes that are running on the local
 machine.  See the doc strings of these functions for more details.
 Not all platforms support accessing this information; on those that
--- a/lisp/ChangeLog	Mon Feb 23 05:06:26 2009 +0000
+++ b/lisp/ChangeLog	Mon Feb 23 05:06:36 2009 +0000
@@ -1,3 +1,9 @@
+2009-02-23  Miles Bader  <miles@gnu.org>
+
+	* proced.el (proced-process-attributes):
+	* server.el (server-running-p): Rename `system-process-attributes'
+	to `process-attributes'.
+
 2009-02-22  Juri Linkov  <juri@jurta.org>
 
 	* dired-aux.el (minibuffer-default-add-dired-shell-commands):
--- a/lisp/proced.el	Mon Feb 23 05:06:26 2009 +0000
+++ b/lisp/proced.el	Mon Feb 23 05:06:36 2009 +0000
@@ -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 @@
 ;; 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 @@
 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 @@
   ;; 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))
--- a/lisp/server.el	Mon Feb 23 05:06:26 2009 +0000
+++ b/lisp/server.el	Mon Feb 23 05:06:36 2009 +0000
@@ -595,7 +595,7 @@
 	    (insert-file-contents-literally (expand-file-name name server-auth-dir))
 	    (or (and (looking-at "127\\.0\\.0\\.1:[0-9]+ \\([0-9]+\\)")
 		     (assq 'comm
-			   (system-process-attributes
+			   (process-attributes
 			    (string-to-number (match-string 1))))
 		     t)
 		:other))
--- a/src/ChangeLog	Mon Feb 23 05:06:26 2009 +0000
+++ b/src/ChangeLog	Mon Feb 23 05:06:36 2009 +0000
@@ -1,3 +1,9 @@
+2009-02-23  Miles Bader  <miles@gnu.org>
+
+	* process.c (Flist_system_processes, Fprocess_attributes)
+	(syms_of_process): Rename `system-process-attributes' to
+	`process-attributes'.
+
 2009-02-22  Andreas Schwab  <schwab@linux-m68k.org>
 
 	* coding.h (struct coding_system): Make safe_charsets a pointer to
--- a/src/process.c	Mon Feb 23 05:06:26 2009 +0000
+++ b/src/process.c	Mon Feb 23 05:06:36 2009 +0000
@@ -7075,15 +7075,14 @@
        doc: /* Return a list of numerical process IDs of all running processes.
 If this functionality is unsupported, return nil.
 
-See `system-process-attributes' for getting attributes of a process
-given its ID.  */)
+See `process-attributes' for getting attributes of a process given its ID.  */)
     ()
 {
   return list_system_processes ();
 }
 
-DEFUN ("system-process-attributes", Fsystem_process_attributes,
-       Ssystem_process_attributes, 1, 1, 0,
+DEFUN ("process-attributes", Fprocess_attributes,
+       Sprocess_attributes, 1, 1, 0,
        doc: /* Return attributes of the process given by its PID, a number.
 
 Value is an alist where each element is a cons cell of the form
@@ -7511,7 +7510,7 @@
   defsubr (&Sset_process_filter_multibyte);
   defsubr (&Sprocess_filter_multibyte_p);
   defsubr (&Slist_system_processes);
-  defsubr (&Ssystem_process_attributes);
+  defsubr (&Sprocess_attributes);
 }
 
 
@@ -7810,15 +7809,14 @@
        doc: /* Return a list of numerical process IDs of all running processes.
 If this functionality is unsupported, return nil.
 
-See `system-process-attributes' for getting attributes of a process
-given its ID.  */)
+See `process-attributes' for getting attributes of a process given its ID.  */)
     ()
 {
   return list_system_processes ();
 }
 
-DEFUN ("system-process-attributes", Fsystem_process_attributes,
-       Ssystem_process_attributes, 1, 1, 0,
+DEFUN ("process-attributes", Fprocess_attributes,
+       Sprocess_attributes, 1, 1, 0,
        doc: /* Return attributes of the process given by its PID, a number.
 
 Value is an alist where each element is a cons cell of the form
@@ -7957,7 +7955,7 @@
   defsubr (&Sget_buffer_process);
   defsubr (&Sprocess_inherit_coding_system_flag);
   defsubr (&Slist_system_processes);
-  defsubr (&Ssystem_process_attributes);
+  defsubr (&Sprocess_attributes);
 }