/[emacs]/emacs/src/print.c
ViewVC logotype

Diff of /emacs/src/print.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.203 by dpe, Wed May 19 07:37:13 2004 UTC revision 1.204 by schwab, Sun Jun 13 15:33:33 2004 UTC
# Line 1822  print_object (obj, printcharfun, escapef Line 1822  print_object (obj, printcharfun, escapef
1822    
1823            PRINTCHAR ('#');            PRINTCHAR ('#');
1824            PRINTCHAR ('&');            PRINTCHAR ('&');
1825            sprintf (buf, "%d", XBOOL_VECTOR (obj)->size);            sprintf (buf, "%ld", (long) XBOOL_VECTOR (obj)->size);
1826            strout (buf, -1, -1, printcharfun, 0);            strout (buf, -1, -1, printcharfun, 0);
1827            PRINTCHAR ('\"');            PRINTCHAR ('\"');
1828    
# Line 1875  print_object (obj, printcharfun, escapef Line 1875  print_object (obj, printcharfun, escapef
1875        else if (WINDOWP (obj))        else if (WINDOWP (obj))
1876          {          {
1877            strout ("#<window ", -1, -1, printcharfun, 0);            strout ("#<window ", -1, -1, printcharfun, 0);
1878            sprintf (buf, "%d", XFASTINT (XWINDOW (obj)->sequence_number));            sprintf (buf, "%ld", (long) XFASTINT (XWINDOW (obj)->sequence_number));
1879            strout (buf, -1, -1, printcharfun, 0);            strout (buf, -1, -1, printcharfun, 0);
1880            if (!NILP (XWINDOW (obj)->buffer))            if (!NILP (XWINDOW (obj)->buffer))
1881              {              {
# Line 1896  print_object (obj, printcharfun, escapef Line 1896  print_object (obj, printcharfun, escapef
1896                PRINTCHAR (' ');                PRINTCHAR (' ');
1897                strout (SDATA (SYMBOL_NAME (h->weak)), -1, -1, printcharfun, 0);                strout (SDATA (SYMBOL_NAME (h->weak)), -1, -1, printcharfun, 0);
1898                PRINTCHAR (' ');                PRINTCHAR (' ');
1899                sprintf (buf, "%d/%d", XFASTINT (h->count),                sprintf (buf, "%ld/%ld", (long) XFASTINT (h->count),
1900                         XVECTOR (h->next)->size);                         (long) XVECTOR (h->next)->size);
1901                strout (buf, -1, -1, printcharfun, 0);                strout (buf, -1, -1, printcharfun, 0);
1902              }              }
1903            sprintf (buf, " 0x%lx", (unsigned long) h);            sprintf (buf, " 0x%lx", (unsigned long) h);
# Line 2020  print_object (obj, printcharfun, escapef Line 2020  print_object (obj, printcharfun, escapef
2020            break;            break;
2021    
2022          case Lisp_Misc_Intfwd:          case Lisp_Misc_Intfwd:
2023            sprintf (buf, "#<intfwd to %d>", *XINTFWD (obj)->intvar);            sprintf (buf, "#<intfwd to %ld>", (long) *XINTFWD (obj)->intvar);
2024            strout (buf, -1, -1, printcharfun, 0);            strout (buf, -1, -1, printcharfun, 0);
2025            break;            break;
2026    

Legend:
Removed from v.1.203  
changed lines
  Added in v.1.204

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26