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



branch: scratch/raeburn-startup
commit 9919e414938a4259a92620ce293ccccd0b331542
Author: Ken Raeburn <[email protected]>
Commit: Ken Raeburn <[email protected]>

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

_______________________________________________
Emacs-diffs mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/emacs-diffs



Programming list archiving by: Enterprise Git Hosting