From d4870a525dcd7dc233a1ed1df676885bad27ee16 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Fri, 12 Jun 2015 16:18:05 -0700 Subject: [PATCH] * src/print.c (print_object): Minor simplification. --- src/print.c | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/src/print.c b/src/print.c index 65c120dbb4f..f396151eaa1 100644 --- a/src/print.c +++ b/src/print.c @@ -1586,33 +1586,32 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) && print_depth > XINT (Vprint_level)) print_c_string ("...", printcharfun); else if (print_quoted && CONSP (XCDR (obj)) && NILP (XCDR (XCDR (obj))) - && (EQ (XCAR (obj), Qquote))) + && EQ (XCAR (obj), Qquote)) { printchar ('\'', printcharfun); print_object (XCAR (XCDR (obj)), printcharfun, escapeflag); } else if (print_quoted && CONSP (XCDR (obj)) && NILP (XCDR (XCDR (obj))) - && (EQ (XCAR (obj), Qfunction))) + && EQ (XCAR (obj), Qfunction)) { print_c_string ("#'", printcharfun); print_object (XCAR (XCDR (obj)), printcharfun, escapeflag); } else if (print_quoted && CONSP (XCDR (obj)) && NILP (XCDR (XCDR (obj))) - && ((EQ (XCAR (obj), Qbackquote)))) + && EQ (XCAR (obj), Qbackquote)) { - print_object (XCAR (obj), printcharfun, 0); + printchar ('`', printcharfun); new_backquote_output++; print_object (XCAR (XCDR (obj)), printcharfun, escapeflag); new_backquote_output--; } else if (print_quoted && CONSP (XCDR (obj)) && NILP (XCDR (XCDR (obj))) && new_backquote_output - && ((EQ (XCAR (obj), Qbackquote) - || EQ (XCAR (obj), Qcomma) - || EQ (XCAR (obj), Qcomma_at) - || EQ (XCAR (obj), Qcomma_dot)))) + && (EQ (XCAR (obj), Qcomma) + || EQ (XCAR (obj), Qcomma_at) + || EQ (XCAR (obj), Qcomma_dot))) { - print_object (XCAR (obj), printcharfun, 0); + print_object (XCAR (obj), printcharfun, false); new_backquote_output--; print_object (XCAR (XCDR (obj)), printcharfun, escapeflag); new_backquote_output++; -- 2.39.2