From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 18 Oct 1995 23:27:11 +0000 (+0000)
Subject: (read1): Handle #' as prefix.
X-Git-Tag: emacs-19.34~2625
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b6cae0c88c224dc866d7ddb0f1a61e4a842efab;p=emacs.git

(read1): Handle #' as prefix.
(Qfunction): New variable.
(syms_of_lread): Set up Qfunction.
---

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);