Mercurial > emacs

comparison src/lread.c @ 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 6182d95acd14
children 941c37982f37
comparison
equal deleted inserted replaced
13234:e3b1df16f4b4 13235:0f83b9eb5478
66 extern int errno; 66 extern int errno;
67 67
68 Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list; 68 Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list;
69 Lisp_Object Qvariable_documentation, Vvalues, Vstandard_input, Vafter_load_alist; 69 Lisp_Object Qvariable_documentation, Vvalues, Vstandard_input, Vafter_load_alist;
70 Lisp_Object Qascii_character, Qload, Qload_file_name; 70 Lisp_Object Qascii_character, Qload, Qload_file_name;
71 Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot; 71 Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot, Qfunction;
72 72
73 extern Lisp_Object Qevent_symbol_element_mask; 73 extern Lisp_Object Qevent_symbol_element_mask;
74 74
75 /* non-zero if inside `load' */ 75 /* non-zero if inside `load' */
76 int load_in_progress; 76 int load_in_progress;
1315 } 1315 }
1316 goto retry; 1316 goto retry;
1317 } 1317 }
1318 if (c == '$') 1318 if (c == '$')
1319 return Vload_file_name; 1319 return Vload_file_name;
1320 if (c == '\'')
1321 return Fcons (Qfunction, Fcons (read0 (readcharfun), Qnil));
1322
1320 1323
1321 UNREAD (c); 1324 UNREAD (c);
1322 Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#", 1), Qnil)); 1325 Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#", 1), Qnil));
1323 1326
1324 case ';': 1327 case ';':
2432 staticpro (&Qcomma_dot); 2435 staticpro (&Qcomma_dot);
2433 2436
2434 Qascii_character = intern ("ascii-character"); 2437 Qascii_character = intern ("ascii-character");
2435 staticpro (&Qascii_character); 2438 staticpro (&Qascii_character);
2436 2439
2440 Qfunction = intern ("function");
2441 staticpro (&Qfunction);
2442
2437 Qload = intern ("load"); 2443 Qload = intern ("load");
2438 staticpro (&Qload); 2444 staticpro (&Qload);
2439 2445
2440 Qload_file_name = intern ("load-file-name"); 2446 Qload_file_name = intern ("load-file-name");
2441 staticpro (&Qload_file_name); 2447 staticpro (&Qload_file_name);