diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-10-18 23:27:11 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-10-18 23:27:11 +0000 |
commit | d593b41a82ab1ffa787e5301e0fd0b7c3ebd2ade (patch) | |
tree | 09349ea8cb3a9888fc13aa4dc52aa225e71b71c7 /src/lread.c | |
parent | 69400b4c3674a0a37704a8042f354429d1f61bfa (diff) | |
download | emacs-d593b41a82ab1ffa787e5301e0fd0b7c3ebd2ade.tar.gz |
(read1): Handle #' as prefix.
(Qfunction): New variable.
(syms_of_lread): Set up Qfunction.
Diffstat (limited to 'src/lread.c')
-rw-r--r-- | src/lread.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index f281c92abab..ad0779911ea 100644 --- a/src/lread.c +++ b/src/lread.c @@ -68,7 +68,7 @@ extern int errno; Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list; Lisp_Object Qvariable_documentation, Vvalues, Vstandard_input, Vafter_load_alist; Lisp_Object Qascii_character, Qload, Qload_file_name; -Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot; +Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot, Qfunction; extern Lisp_Object Qevent_symbol_element_mask; @@ -1317,6 +1317,9 @@ read1 (readcharfun, pch, first_in_list) } if (c == '$') return Vload_file_name; + if (c == '\'') + return Fcons (Qfunction, Fcons (read0 (readcharfun), Qnil)); + UNREAD (c); Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#", 1), Qnil)); @@ -2434,6 +2437,9 @@ This is useful when the file being loaded is a temporary copy."); Qascii_character = intern ("ascii-character"); staticpro (&Qascii_character); + Qfunction = intern ("function"); + staticpro (&Qfunction); + Qload = intern ("load"); staticpro (&Qload); |