diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-07-29 14:14:19 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-07-29 14:14:19 -0700 |
| commit | eacb6b4bfa897c12c41a4af73f40ab61b45a8548 (patch) | |
| tree | d0f9e055b6780b64db72c65753a793e1d1a59f66 /src/print.c | |
| parent | 5402029425ceee114d7ed071ac981227f0d1fc38 (diff) | |
| parent | 096a60526593c1571da1ec9137b878ad8178f833 (diff) | |
| download | emacs-eacb6b4bfa897c12c41a4af73f40ab61b45a8548.tar.gz | |
Merge from trunk.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/print.c b/src/print.c index f1907a31465..35f89860843 100644 --- a/src/print.c +++ b/src/print.c @@ -1536,13 +1536,19 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag else confusing = 0; + size_byte = SBYTES (name); + if (! NILP (Vprint_gensym) && !SYMBOL_INTERNED_P (obj)) { PRINTCHAR ('#'); PRINTCHAR (':'); } - - size_byte = SBYTES (name); + else if (size_byte == 0) + { + PRINTCHAR ('#'); + PRINTCHAR ('#'); + break; + } for (i = 0, i_byte = 0; i_byte < size_byte;) { @@ -1555,7 +1561,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag { if (c == '\"' || c == '\\' || c == '\'' || c == ';' || c == '#' || c == '(' || c == ')' - || c == ',' || c =='.' || c == '`' + || c == ',' || c == '.' || c == '`' || c == '[' || c == ']' || c == '?' || c <= 040 || confusing) PRINTCHAR ('\\'), confusing = 0; |