[Emacs-diffs] scratch/raeburn-startup 9919e41 2/2: Exclude comma symbols from print-symbols-as-references processing.

[Ken Raeburn]

branch: scratch/raeburn-startup
commit 9919e414938a4259a92620ce293ccccd0b331542
Author: Ken Raeburn <address@hidden>
Commit: Ken Raeburn <address@hidden>

    Exclude comma symbols from print-symbols-as-references processing.
    
    * src/print.c (PRINT_CIRCLE_CANDIDATE_P): Reject Qcomma, Qcomma_at,
    and Qcomma_dot.
---
 src/print.c |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/print.c b/src/print.c
index 9e87b25..ff2e1be 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1151,7 +1151,10 @@ print (Lisp_Object obj, Lisp_Object printcharfun, bool 
escapeflag)
        && ! NILP (Vprint_gensym))                                      \
    || (SYMBOLP (obj)                                                   \
        && SYMBOL_INTERNED_P (obj)                                      \
-       && ! NILP (Vprint_symbols_as_references)))
+       && ! NILP (Vprint_symbols_as_references)                                
\
+       && ! EQ (Qcomma, obj)                                           \
+       && ! EQ (Qcomma_at, obj)                                                
\
+       && ! EQ (Qcomma_dot, obj)))
 
 /* Construct Vprint_number_table according to the structure of OBJ.
    OBJ itself and all its elements will be added to Vprint_number_table