[Emacs-diffs] emacs etc/ChangeLog etc/NEWS lisp/server.el lis...

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     09/02/23 05:06:43

Modified files:
        etc            : ChangeLog NEWS 
        lisp           : server.el ChangeLog proced.el 
        src            : process.c ChangeLog 
        doc/lispref    : ChangeLog processes.texi 

Log message:
        Rename `system-process-attributes' to `process-attributes'
        
        Revision: address@hidden/emacs--devo--0--patch-1553

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/etc/ChangeLog?cvsroot=emacs&r1=1.766&r2=1.767
http://cvs.savannah.gnu.org/viewcvs/emacs/etc/NEWS?cvsroot=emacs&r1=1.1991&r2=1.1992
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/server.el?cvsroot=emacs&r1=1.190&r2=1.191
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15380&r2=1.15381
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/proced.el?cvsroot=emacs&r1=1.34&r2=1.35
http://cvs.savannah.gnu.org/viewcvs/emacs/src/process.c?cvsroot=emacs&r1=1.580&r2=1.581
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7375&r2=1.7376
http://cvs.savannah.gnu.org/viewcvs/emacs/doc/lispref/ChangeLog?cvsroot=emacs&r1=1.218&r2=1.219
http://cvs.savannah.gnu.org/viewcvs/emacs/doc/lispref/processes.texi?cvsroot=emacs&r1=1.18&r2=1.19

Patches:
Index: etc/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/ChangeLog,v
retrieving revision 1.766
retrieving revision 1.767
diff -u -b -r1.766 -r1.767
--- etc/ChangeLog       19 Feb 2009 06:49:05 -0000      1.766
+++ etc/ChangeLog       23 Feb 2009 05:06:36 -0000      1.767
@@ -1,3 +1,7 @@
+2009-02-23  Miles Bader  <address@hidden>
+
+       * NEWS: Rename `system-process-attributes' to `process-attributes'.
+
 2009-02-19  Nick Roberts  <address@hidden>
 
        * compilation.txt: Add entry for maven.

Index: etc/NEWS
===================================================================
RCS file: /cvsroot/emacs/emacs/etc/NEWS,v
retrieving revision 1.1991
retrieving revision 1.1992
diff -u -b -r1.1991 -r1.1992
--- etc/NEWS    21 Feb 2009 23:32:44 -0000      1.1991
+++ etc/NEWS    23 Feb 2009 05:06:37 -0000      1.1992
@@ -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

Index: lisp/server.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/server.el,v
retrieving revision 1.190
retrieving revision 1.191
diff -u -b -r1.190 -r1.191
--- lisp/server.el      20 Feb 2009 02:16:25 -0000      1.190
+++ lisp/server.el      23 Feb 2009 05:06:37 -0000      1.191
@@ -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))

Index: lisp/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15380
retrieving revision 1.15381
diff -u -b -r1.15380 -r1.15381
--- lisp/ChangeLog      22 Feb 2009 23:38:04 -0000      1.15380
+++ lisp/ChangeLog      23 Feb 2009 05:06:38 -0000      1.15381
@@ -1,3 +1,9 @@
+2009-02-23  Miles Bader  <address@hidden>
+
+       * proced.el (proced-process-attributes):
+       * server.el (server-running-p): Rename `system-process-attributes'
+       to `process-attributes'.
+
 2009-02-22  Juri Linkov  <address@hidden>
 
        * dired-aux.el (minibuffer-default-add-dired-shell-commands):

Index: lisp/proced.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/proced.el,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- lisp/proced.el      7 Feb 2009 17:06:26 -0000       1.34
+++ lisp/proced.el      23 Feb 2009 05:06:40 -0000      1.35
@@ -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))

Index: src/process.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/process.c,v
retrieving revision 1.580
retrieving revision 1.581
diff -u -b -r1.580 -r1.581
--- src/process.c       10 Feb 2009 22:32:40 -0000      1.580
+++ src/process.c       23 Feb 2009 05:06:40 -0000      1.581
@@ -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);
 }
 
 

Index: src/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7375
retrieving revision 1.7376
diff -u -b -r1.7375 -r1.7376
--- src/ChangeLog       22 Feb 2009 15:48:02 -0000      1.7375
+++ src/ChangeLog       23 Feb 2009 05:06:41 -0000      1.7376
@@ -1,3 +1,9 @@
+2009-02-23  Miles Bader  <address@hidden>
+
+       * process.c (Flist_system_processes, Fprocess_attributes)
+       (syms_of_process): Rename `system-process-attributes' to
+       `process-attributes'.
+
 2009-02-22  Andreas Schwab  <address@hidden>
 
        * coding.h (struct coding_system): Make safe_charsets a pointer to

Index: doc/lispref/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/doc/lispref/ChangeLog,v
retrieving revision 1.218
retrieving revision 1.219
diff -u -b -r1.218 -r1.219
--- doc/lispref/ChangeLog       22 Feb 2009 21:55:55 -0000      1.218
+++ doc/lispref/ChangeLog       23 Feb 2009 05:06:42 -0000      1.219
@@ -1,3 +1,8 @@
+2009-02-23  Miles Bader  <address@hidden>
+
+       * processes.texi (System Processes): Rename `system-process-attributes'
+       to `process-attributes'.
+
 2009-02-22  Chong Yidong  <address@hidden>
 
        * symbols.texi (Property Lists): Emphasize that property lists are

Index: doc/lispref/processes.texi
===================================================================
RCS file: /cvsroot/emacs/emacs/doc/lispref/processes.texi,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- doc/lispref/processes.texi  10 Jan 2009 12:49:58 -0000      1.18
+++ doc/lispref/processes.texi  23 Feb 2009 05:06:42 -0000      1.19
@@ -1644,7 +1644,7 @@
 time.
 @end defun
 
address@hidden system-process-attributes pid
address@hidden 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