diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2011-07-28 22:31:12 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-07-28 22:31:12 -0700 |
| commit | 18ab493650d648ab8dca651ea2698861f926e895 (patch) | |
| tree | b16ca478db1e96af8d0be9a20ff1361bea6d12ee /src/lread.c | |
| parent | 726e0ab18e84ce0df6b9dc1612bf4d92b9d1e52a (diff) | |
| parent | 43dc9f5b0187276c24e1f63f2a23ba4b81c20e07 (diff) | |
| download | emacs-18ab493650d648ab8dca651ea2698861f926e895.tar.gz | |
Merge from trunk.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index 3703fdf5d3e..f2a52780a0c 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2670,6 +2670,9 @@ read1 (register Lisp_Object readcharfun, int *pch, int first_in_list) } goto read_symbol; } + /* ## is the empty symbol. */ + if (c == '#') + return Fintern (build_string (""), Qnil); /* Reader forms that can reuse previously read objects. */ if (c >= '0' && c <= '9') { |