[Emacs-diffs] Changes to emacs/src/process.c

[Dave Love]

Index: emacs/src/process.c
diff -c emacs/src/process.c:1.412 emacs/src/process.c:1.413
*** emacs/src/process.c:1.412   Wed Sep 17 17:31:53 2003
--- emacs/src/process.c Thu Sep 18 06:39:47 2003
***************
*** 2449,2455 ****
       Lisp_Object process, option, value;
       Lisp_Object no_error;
  {
!   int s, i;
  
    CHECK_PROCESS (process);
  
--- 2449,2455 ----
       Lisp_Object process, option, value;
       Lisp_Object no_error;
  {
!   int s;
  
    CHECK_PROCESS (process);
  
***************
*** 3343,3349 ****
         doc: /* Return an alist of all network interfaces and their network 
address.
  Each element is a cons, the car of which is a string containing the
  interface name, and the cdr is the network address in internal
! format; see the description of ADDRESS in 'make-network-process'.  */)
       ()
  {
    struct ifconf ifconf;
--- 3343,3349 ----
         doc: /* Return an alist of all network interfaces and their network 
address.
  Each element is a cons, the car of which is a string containing the
  interface name, and the cdr is the network address in internal
! format; see the description of ADDRESS in `make-network-process'.  */)
       ()
  {
    struct ifconf ifconf;
***************
*** 3521,3527 ****
        any++;
        for (n = 0; n < 6; n++)
        p->contents[n] = make_number (((unsigned char 
*)&rq.ifr_hwaddr.sa_data[0])[n]);
!       elt = Fcons (XINT (rq.ifr_hwaddr.sa_family), hwaddr);
      }
  #endif
    res = Fcons (elt, res);
--- 3521,3527 ----
        any++;
        for (n = 0; n < 6; n++)
        p->contents[n] = make_number (((unsigned char 
*)&rq.ifr_hwaddr.sa_data[0])[n]);
!       elt = Fcons (make_number (rq.ifr_hwaddr.sa_family), hwaddr);
      }
  #endif
    res = Fcons (elt, res);
***************
*** 4607,4613 ****
       Lisp_Object proc;
       register int channel;
  {
!   register int nchars, nbytes;
    char *chars;
    register Lisp_Object outstream;
    register struct buffer *old = current_buffer;
--- 4607,4613 ----
       Lisp_Object proc;
       register int channel;
  {
!   register int nbytes;
    char *chars;
    register Lisp_Object outstream;
    register struct buffer *old = current_buffer;