Mercurial > emacs

changeset 13235:0f83b9eb5478

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read1): Handle #' as prefix. (Qfunction): New variable. (syms_of_lread): Set up Qfunction.
author Richard M. Stallman <rms@gnu.org>
date Wed, 18 Oct 1995 23:27:11 +0000
parents e3b1df16f4b4
children c9af99bb26d4
files src/lread.c
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Tue Oct 17 18:13:25 1995 +0000
+++ b/src/lread.c	Wed Oct 18 23:27:11 1995 +0000
@@ -68,7 +68,7 @@
 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 @@
 	}
       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 @@
   Qascii_character = intern ("ascii-character");
   staticpro (&Qascii_character);
 
+  Qfunction = intern ("function");
+  staticpro (&Qfunction);
+
   Qload = intern ("load");
   staticpro (&Qload);