Mercurial > hg > xemacs-beta
comparison src/lread.c @ 5677:febc025c4e0c
Adopt GNU's ## syntax for the interned symbol with name "".
src/ChangeLog addition:
2012-08-06 Aidan Kehoe <kehoea@parhasard.net>
* lread.c (read1):
* print.c (print_symbol):
Adopt GNU's ## syntax for the interned symbol with the zero-length
name.
man/ChangeLog addition:
2012-08-06 Aidan Kehoe <kehoea@parhasard.net>
* lispref/symbols.texi (Symbol Components):
Document the new syntax of ## for the symbol with name "" interned
in obarray.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 06 Aug 2012 13:07:55 +0100 |
| parents | d69ea1ff4ce3 |
| children | 427a72c6ee17 |
comparison
equal
deleted
inserted
replaced
| 5676:dede3f658f8e | 5677:febc025c4e0c |
|---|---|
| 2652 for (i = 0; i < nskip && c >= 0; i++) | 2652 for (i = 0; i < nskip && c >= 0; i++) |
| 2653 c = readchar (readcharfun); | 2653 c = readchar (readcharfun); |
| 2654 | 2654 |
| 2655 goto retry; | 2655 goto retry; |
| 2656 } | 2656 } |
| 2657 /* The interned symbol with the empty name. */ | |
| 2658 case '#': return intern (""); | |
| 2657 case '$': return Vload_file_name_internal; | 2659 case '$': return Vload_file_name_internal; |
| 2658 /* bit vectors */ | 2660 /* bit vectors */ |
| 2659 case '*': return read_bit_vector (readcharfun); | 2661 case '*': return read_bit_vector (readcharfun); |
| 2660 /* #o10 => 8 -- octal constant syntax */ | 2662 /* #o10 => 8 -- octal constant syntax */ |
| 2661 case 'o': case 'O': return read_integer (readcharfun, 8); | 2663 case 'o': case 'O': return read_integer (readcharfun, 8); |