diff options
| author | Juanma Barranquero | 2011-06-24 23:25:22 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2011-06-24 23:25:22 +0200 |
| commit | cd3520a41df21d80a9d894c58af2daba23c8dd24 (patch) | |
| tree | 945eaef322c65471833954ddce161a7a913ee3c8 /src/syntax.c | |
| parent | 7d0da90e7b98f5c09df82be9985cc27d30adea07 (diff) | |
| download | emacs-cd3520a41df21d80a9d894c58af2daba23c8dd24.tar.gz emacs-cd3520a41df21d80a9d894c58af2daba23c8dd24.zip | |
Move DEFSYM to lisp.h and use everywhere.
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/syntax.c b/src/syntax.c index 82103cfa3d4..8c2d5ded21f 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -3362,8 +3362,7 @@ init_syntax_once (void) | |||
| 3362 | Lisp_Object temp; | 3362 | Lisp_Object temp; |
| 3363 | 3363 | ||
| 3364 | /* This has to be done here, before we call Fmake_char_table. */ | 3364 | /* This has to be done here, before we call Fmake_char_table. */ |
| 3365 | Qsyntax_table = intern_c_string ("syntax-table"); | 3365 | DEFSYM (Qsyntax_table, "syntax-table"); |
| 3366 | staticpro (&Qsyntax_table); | ||
| 3367 | 3366 | ||
| 3368 | /* Intern_C_String this now in case it isn't already done. | 3367 | /* Intern_C_String this now in case it isn't already done. |
| 3369 | Setting this variable twice is harmless. | 3368 | Setting this variable twice is harmless. |
| @@ -3448,8 +3447,7 @@ init_syntax_once (void) | |||
| 3448 | void | 3447 | void |
| 3449 | syms_of_syntax (void) | 3448 | syms_of_syntax (void) |
| 3450 | { | 3449 | { |
| 3451 | Qsyntax_table_p = intern_c_string ("syntax-table-p"); | 3450 | DEFSYM (Qsyntax_table_p, "syntax-table-p"); |
| 3452 | staticpro (&Qsyntax_table_p); | ||
| 3453 | 3451 | ||
| 3454 | staticpro (&Vsyntax_code_object); | 3452 | staticpro (&Vsyntax_code_object); |
| 3455 | 3453 | ||
| @@ -3461,8 +3459,7 @@ syms_of_syntax (void) | |||
| 3461 | /* Defined in regex.c */ | 3459 | /* Defined in regex.c */ |
| 3462 | staticpro (&re_match_object); | 3460 | staticpro (&re_match_object); |
| 3463 | 3461 | ||
| 3464 | Qscan_error = intern_c_string ("scan-error"); | 3462 | DEFSYM (Qscan_error, "scan-error"); |
| 3465 | staticpro (&Qscan_error); | ||
| 3466 | Fput (Qscan_error, Qerror_conditions, | 3463 | Fput (Qscan_error, Qerror_conditions, |
| 3467 | pure_cons (Qscan_error, pure_cons (Qerror, Qnil))); | 3464 | pure_cons (Qscan_error, pure_cons (Qerror, Qnil))); |
| 3468 | Fput (Qscan_error, Qerror_message, | 3465 | Fput (Qscan_error, Qerror_message, |