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

[Ken Raeburn]

Index: emacs/src/print.c
diff -c emacs/src/print.c:1.174 emacs/src/print.c:1.175
*** emacs/src/print.c:1.174     Sat Mar 16 01:53:35 2002
--- emacs/src/print.c   Mon May 20 04:06:27 2002
***************
*** 970,976 ****
       *Messages*.  */
    if (!NILP (Vsignaling_function) && SYMBOLP (Vsignaling_function))
      {
!       char *name = XSYMBOL (Vsignaling_function)->name->data;
        message_dolog (name, strlen (name), 0, 0);
        message_dolog (": ", 2, 0, 0);
        Vsignaling_function = Qnil;
--- 970,976 ----
       *Messages*.  */
    if (!NILP (Vsignaling_function) && SYMBOLP (Vsignaling_function))
      {
!       char *name = XSTRING (SYMBOL_NAME (Vsignaling_function))->data;
        message_dolog (name, strlen (name), 0, 0);
        message_dolog (": ", 2, 0, 0);
        Vsignaling_function = Qnil;
***************
*** 1490,1502 ****
      case Lisp_Symbol:
        {
        register int confusing;
!       register unsigned char *p = XSYMBOL (obj)->name->data;
!       register unsigned char *end = p + STRING_BYTES (XSYMBOL (obj)->name);
        register int c;
        int i, i_byte, size_byte;
        Lisp_Object name;
  
!       XSETSTRING (name, XSYMBOL (obj)->name);
  
        if (p != end && (*p == '-' || *p == '+')) p++;
        if (p == end)
--- 1490,1502 ----
      case Lisp_Symbol:
        {
        register int confusing;
!       register unsigned char *p = XSTRING (SYMBOL_NAME (obj))->data;
!       register unsigned char *end = p + STRING_BYTES (XSTRING (SYMBOL_NAME 
(obj)));
        register int c;
        int i, i_byte, size_byte;
        Lisp_Object name;
  
!       name = SYMBOL_NAME (obj);
  
        if (p != end && (*p == '-' || *p == '+')) p++;
        if (p == end)
***************
*** 1744,1752 ****
            {
              PRINTCHAR (' ');
              PRINTCHAR ('\'');
!             strout (XSYMBOL (h->test)->name->data, -1, -1, printcharfun, 0);
              PRINTCHAR (' ');
!             strout (XSYMBOL (h->weak)->name->data, -1, -1, printcharfun, 0);
              PRINTCHAR (' ');
              sprintf (buf, "%d/%d", XFASTINT (h->count),
                       XVECTOR (h->next)->size);
--- 1744,1752 ----
            {
              PRINTCHAR (' ');
              PRINTCHAR ('\'');
!             strout (XSTRING (SYMBOL_NAME (h->test))->data, -1, -1, 
printcharfun, 0);
              PRINTCHAR (' ');
!             strout (XSTRING (SYMBOL_NAME (h->weak))->data, -1, -1, 
printcharfun, 0);
              PRINTCHAR (' ');
              sprintf (buf, "%d/%d", XFASTINT (h->count),
                       XVECTOR (h->next)->size);