# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1046176143 0
# Node ID 975bc8dd31722dc3a49f38717d17fa644e8217ee
# Parent  1687b79d54e772a839a5d55a62b89acb1d5e9af3
(read1): Accept `single space' syntax like (? x).

diff -r 1687b79d54e7 -r 975bc8dd3172 src/lread.c
--- a/src/lread.c	Tue Feb 25 06:19:36 2003 +0000
+++ b/src/lread.c	Tue Feb 25 12:29:03 2003 +0000
@@ -2258,6 +2258,13 @@
 	if (c < 0)
 	  end_of_file_error ();
 
+	/* Accept `single space' syntax like (list ? x) where the
+	   whitespace character is SPC or TAB.
+	   Other literal whitespace like NL, CR, and FF are not accepted,
+	   as there are well-established escape sequences for these.  */
+	if (c == ' ' || c == '\t')
+	  return make_number (c);
+
 	if (c == '\\')
 	  c = read_escape (readcharfun, 0, &discard);
 	else if (BASE_LEADING_CODE_P (c))