[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/print.c [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/print.c [lexbind] |
Date: |
Tue, 06 Jul 2004 07:05:47 -0400 |
Index: emacs/src/print.c
diff -c emacs/src/print.c:1.175.2.8 emacs/src/print.c:1.175.2.9
*** emacs/src/print.c:1.175.2.8 Tue Jul 6 09:24:07 2004
--- emacs/src/print.c Tue Jul 6 10:10:53 2004
***************
*** 1822,1828 ****
PRINTCHAR ('#');
PRINTCHAR ('&');
! sprintf (buf, "%d", XBOOL_VECTOR (obj)->size);
strout (buf, -1, -1, printcharfun, 0);
PRINTCHAR ('\"');
--- 1822,1828 ----
PRINTCHAR ('#');
PRINTCHAR ('&');
! sprintf (buf, "%ld", (long) XBOOL_VECTOR (obj)->size);
strout (buf, -1, -1, printcharfun, 0);
PRINTCHAR ('\"');
***************
*** 1875,1881 ****
else if (WINDOWP (obj))
{
strout ("#<window ", -1, -1, printcharfun, 0);
! sprintf (buf, "%d", XFASTINT (XWINDOW (obj)->sequence_number));
strout (buf, -1, -1, printcharfun, 0);
if (!NILP (XWINDOW (obj)->buffer))
{
--- 1875,1881 ----
else if (WINDOWP (obj))
{
strout ("#<window ", -1, -1, printcharfun, 0);
! sprintf (buf, "%ld", (long) XFASTINT (XWINDOW
(obj)->sequence_number));
strout (buf, -1, -1, printcharfun, 0);
if (!NILP (XWINDOW (obj)->buffer))
{
***************
*** 1896,1903 ****
PRINTCHAR (' ');
strout (SDATA (SYMBOL_NAME (h->weak)), -1, -1, printcharfun, 0);
PRINTCHAR (' ');
! sprintf (buf, "%d/%d", XFASTINT (h->count),
! XVECTOR (h->next)->size);
strout (buf, -1, -1, printcharfun, 0);
}
sprintf (buf, " 0x%lx", (unsigned long) h);
--- 1896,1903 ----
PRINTCHAR (' ');
strout (SDATA (SYMBOL_NAME (h->weak)), -1, -1, printcharfun, 0);
PRINTCHAR (' ');
! sprintf (buf, "%ld/%ld", (long) XFASTINT (h->count),
! (long) XVECTOR (h->next)->size);
strout (buf, -1, -1, printcharfun, 0);
}
sprintf (buf, " 0x%lx", (unsigned long) h);
***************
*** 2020,2026 ****
break;
case Lisp_Misc_Intfwd:
! sprintf (buf, "#<intfwd to %d>", *XINTFWD (obj)->intvar);
strout (buf, -1, -1, printcharfun, 0);
break;
--- 2020,2026 ----
break;
case Lisp_Misc_Intfwd:
! sprintf (buf, "#<intfwd to %ld>", (long) *XINTFWD (obj)->intvar);
strout (buf, -1, -1, printcharfun, 0);
break;