diff options
| author | Roland McGrath <roland@gnu.org> | 1994-02-08 22:42:28 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1994-02-08 22:42:28 +0000 |
| commit | 3a6820e283973b727aea62c522f7f5f7f33323d0 (patch) | |
| tree | b86fb878b4aac846e91d78fb77fafc7a6501180d /src/print.c | |
| parent | af77ea01521d0e4920070880eb9e1856c425845d (diff) | |
| download | emacs-3a6820e283973b727aea62c522f7f5f7f33323d0.tar.gz | |
(print): If print_escapes_newlines, print '\f' as "\\f".
(syms_of_print): Update docstring.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/print.c b/src/print.c index 1ea6d8573ef..8e4a05fe3af 100644 --- a/src/print.c +++ b/src/print.c @@ -1,5 +1,5 @@ /* Lisp object printing and output streams. - Copyright (C) 1985, 1986, 1988, 1993 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1988, 1993, 1994 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -793,6 +793,11 @@ print (obj, printcharfun, escapeflag) PRINTCHAR ('\\'); PRINTCHAR ('n'); } + else if (c == '\f' && print_escape_newlines) + { + PRINTCHAR ('\\'); + PRINTCHAR ('f'); + } else { if (c == '\"' || c == '\\') @@ -1069,7 +1074,8 @@ A value of nil means no limit."); Vprint_level = Qnil; DEFVAR_BOOL ("print-escape-newlines", &print_escape_newlines, - "Non-nil means print newlines in strings as backslash-n."); + "Non-nil means print newlines in strings as backslash-n. +Also print formfeeds as backslash-f."); print_escape_newlines = 0; /* prin1_to_string_buffer initialized in init_buffer_once in buffer.c */ |