Mercurial > hg > xemacs-beta
diff src/lread.c @ 5213:7abb91db1e64
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.
| author | Mike Sperber <sperber@deinprogramm.de> |
|---|---|
| date | Mon, 24 May 2010 10:43:29 +0200 |
| parents | cdca98f2d36f |
| children | 5efbd1253905 |
line wrap: on
line diff
--- 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 */