diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-06-12 16:18:05 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-06-12 16:28:09 -0700 |
| commit | d4870a525dcd7dc233a1ed1df676885bad27ee16 (patch) | |
| tree | 08a453e49eb429bf194a50d25896c0e47aa6f807 | |
| parent | f8e26cd3af6b48428c3199f3f9c2a08c4f359234 (diff) | |
| download | emacs-d4870a525dcd7dc233a1ed1df676885bad27ee16.tar.gz | |
* src/print.c (print_object): Minor simplification.
| -rw-r--r-- | src/print.c | 17 |
1 files 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++; |