diff options
| author | Noam Postavsky | 2018-01-28 16:57:11 -0500 |
|---|---|---|
| committer | Noam Postavsky | 2018-01-30 22:14:02 -0500 |
| commit | 16022626ba86eb96e12b7d919edfb50912cb26bd (patch) | |
| tree | 2059fa817371a57926e86c60d5535d2b3f292ff2 /src | |
| parent | 53e9fa2b5ab4b179258917aa2d9be9341d42820a (diff) | |
| download | emacs-16022626ba86eb96e12b7d919edfb50912cb26bd.tar.gz emacs-16022626ba86eb96e12b7d919edfb50912cb26bd.zip | |
Clarify effect of print-gensym (Bug#27776)
* src/print.c (syms_of_print) <print-gensym>: Clarify that use of #N#
and #N= constructs depends on the value of `print-circle'.
Diffstat (limited to 'src')
| -rw-r--r-- | src/print.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/print.c b/src/print.c index 47cb33deeba..d140f9973f5 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -2371,10 +2371,10 @@ I.e., (quote foo) prints as \\='foo, (function foo) as #\\='foo. */); | |||
| 2371 | DEFVAR_LISP ("print-gensym", Vprint_gensym, | 2371 | DEFVAR_LISP ("print-gensym", Vprint_gensym, |
| 2372 | doc: /* Non-nil means print uninterned symbols so they will read as uninterned. | 2372 | doc: /* Non-nil means print uninterned symbols so they will read as uninterned. |
| 2373 | I.e., the value of (make-symbol \"foobar\") prints as #:foobar. | 2373 | I.e., the value of (make-symbol \"foobar\") prints as #:foobar. |
| 2374 | When the uninterned symbol appears within a recursive data structure, | 2374 | When the uninterned symbol appears multiple times within the printed |
| 2375 | and the symbol appears more than once, in addition use the #N# and #N= | 2375 | expression, and `print-circle' is non-nil, in addition use the #N# |
| 2376 | constructs as needed, so that multiple references to the same symbol are | 2376 | and #N= constructs as needed, so that multiple references to the same |
| 2377 | shared once again when the text is read back. */); | 2377 | symbol are shared once again when the text is read back. */); |
| 2378 | Vprint_gensym = Qnil; | 2378 | Vprint_gensym = Qnil; |
| 2379 | 2379 | ||
| 2380 | DEFVAR_LISP ("print-circle", Vprint_circle, | 2380 | DEFVAR_LISP ("print-circle", Vprint_circle, |