# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 814058831 0
# Node ID 0f83b9eb547856c6f4b1b4688a677784254f59f6
# Parent  e3b1df16f4b422246ada0b1cff6df797944d3474
(read1): Handle #' as prefix.
(Qfunction): New variable.
(syms_of_lread): Set up Qfunction.

diff -r e3b1df16f4b4 -r 0f83b9eb5478 src/lread.c
--- 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);