# HG changeset patch
# User Mike Sperber <sperber@deinprogramm.de>
# Date 1274690609 -7200
# Node ID 7abb91db1e64d1eaa2047b3fcfe880ea5b5d02f9
# Parent  4f98237e23fcbfd1e9edb89cb90373d24dcae5f8
Accept #B<binary>, #O<octal>, and #X<hex>.

2010-05-24  Mike Sperber  <mike@xemacs.org>

	* lread.c (read1): Accept #B<binary>, #O<octal>, and #X<hex>, just
	like GNU Emacs.

diff -r 4f98237e23fc -r 7abb91db1e64 src/ChangeLog
--- a/src/ChangeLog	Sun May 16 12:49:49 2010 +0100
+++ b/src/ChangeLog	Mon May 24 10:43:29 2010 +0200
@@ -1,3 +1,8 @@
+2010-05-24  Mike Sperber  <mike@xemacs.org>
+
+	* lread.c (read1): Accept #B<binary>, #O<octal>, and #X<hex>, just
+	like GNU Emacs.
+
 2010-05-16  Aidan Kehoe  <kehoea@parhasard.net>
 
 	Move `default-file-system-ignore-case' to C; pay attention to it
diff -r 4f98237e23fc -r 7abb91db1e64 src/lread.c
--- a/src/lread.c	Sun May 16 12:49:49 2010 +0100
+++ b/src/lread.c	Mon May 24 10:43:29 2010 +0200
@@ -2652,11 +2652,11 @@
             /* bit vectors */
 	  case '*': return read_bit_vector (readcharfun);
             /* #o10 => 8 -- octal constant syntax */
-	  case 'o': return read_integer (readcharfun, 8);
+	  case 'o': case 'O': return read_integer (readcharfun, 8);
             /* #xdead => 57005 -- hex constant syntax */
-	  case 'x': return read_integer (readcharfun, 16);
+	  case 'x': case 'X': return read_integer (readcharfun, 16);
             /* #b010 => 2 -- binary constant syntax */
-	  case 'b': return read_integer (readcharfun, 2);
+	  case 'b': case 'B': return read_integer (readcharfun, 2);
 	    /* #r"raw\stringt" -- raw string syntax */
 	  case 'r': return read_raw_string(readcharfun);
             /* #s(foobar key1 val1 key2 val2) -- structure syntax */