Mercurial > emacs

changeset 5852:f2e341b1f908

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print): If print_escapes_newlines, print '\f' as "\\f". (syms_of_print): Update docstring.
author Roland McGrath <roland@gnu.org>
date Tue, 08 Feb 1994 22:42:28 +0000
parents bdb049c20e39
children 4934e5381fb2
files src/print.c
diffstat 1 files changed, 8 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/print.c	Tue Feb 08 22:26:30 1994 +0000
+++ b/src/print.c	Tue Feb 08 22:42:28 1994 +0000
@@ -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 @@
 		  PRINTCHAR ('\\');
 		  PRINTCHAR ('n');
 		}
+	      else if (c == '\f' && print_escape_newlines)
+		{
+		  PRINTCHAR ('\\');
+		  PRINTCHAR ('f');
+		}
 	      else
 		{
 		  if (c == '\"' || c == '\\')
@@ -1069,7 +1074,8 @@
   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 */