Mercurial > hg > xemacs-beta
changeset 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 | 4f98237e23fc |
| children | 0b4d355771bd |
| files | src/ChangeLog src/lread.c |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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 */