[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: |
Sat, 04 Sep 2004 05:44:52 -0400 |
Index: emacs/src/print.c
diff -c emacs/src/print.c:1.175.2.11 emacs/src/print.c:1.175.2.12
*** emacs/src/print.c:1.175.2.11 Fri Jul 23 04:42:23 2004
--- emacs/src/print.c Sat Sep 4 09:20:10 2004
***************
*** 1304,1310 ****
loop:
if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
! || COMPILEDP (obj) || CHAR_TABLE_P (obj)
|| (! NILP (Vprint_gensym)
&& SYMBOLP (obj)
&& !SYMBOL_INTERNED_P (obj)))
--- 1304,1310 ----
loop:
if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
! || FUNVECP (obj) || CHAR_TABLE_P (obj)
|| (! NILP (Vprint_gensym)
&& SYMBOLP (obj)
&& !SYMBOL_INTERNED_P (obj)))
***************
*** 1407,1413 ****
/* Detect circularities and truncate them. */
if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
! || COMPILEDP (obj) || CHAR_TABLE_P (obj)
|| (! NILP (Vprint_gensym)
&& SYMBOLP (obj)
&& !SYMBOL_INTERNED_P (obj)))
--- 1407,1413 ----
/* Detect circularities and truncate them. */
if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
! || FUNVECP (obj) || CHAR_TABLE_P (obj)
|| (! NILP (Vprint_gensym)
&& SYMBOLP (obj)
&& !SYMBOL_INTERNED_P (obj)))
***************
*** 1934,1940 ****
else
{
EMACS_INT size = XVECTOR (obj)->size;
! if (COMPILEDP (obj))
{
PRINTCHAR ('#');
size &= PSEUDOVECTOR_SIZE_MASK;
--- 1934,1940 ----
else
{
EMACS_INT size = XVECTOR (obj)->size;
! if (FUNVECP (obj))
{
PRINTCHAR ('#');
size &= PSEUDOVECTOR_SIZE_MASK;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/print.c [lexbind],
Miles Bader <=