From: Kim F. Storm <storm@cua.dk>
Date: Tue, 25 Feb 2003 12:29:03 +0000 (+0000)
Subject: (read1): Accept `single space' syntax like (? x).
X-Git-Tag: ttn-vms-21-2-B4~11032
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b92843717547cf84299a2aad833450c0032e4732;p=emacs.git

(read1): Accept `single space' syntax like (? x).
---

diff --git a/src/lread.c b/src/lread.c
index 071bf679015..70f0a3f2f9b 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2258,6 +2258,13 @@ read1 (readcharfun, pch, first_in_list)
 	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))