diff options
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 30 |
1 files changed, 6 insertions, 24 deletions
diff --git a/src/syntax.c b/src/syntax.c index d8749a18eea..1071a150c51 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -98,23 +98,11 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 98 | 98 | ||
| 99 | Lisp_Object Qsyntax_table_p, Qsyntax_table, Qscan_error; | 99 | Lisp_Object Qsyntax_table_p, Qsyntax_table, Qscan_error; |
| 100 | 100 | ||
| 101 | int words_include_escapes; | ||
| 102 | int parse_sexp_lookup_properties; | ||
| 103 | |||
| 104 | /* Nonzero means `scan-sexps' treat all multibyte characters as symbol. */ | ||
| 105 | int multibyte_syntax_as_symbol; | ||
| 106 | |||
| 107 | /* Used as a temporary in SYNTAX_ENTRY and other macros in syntax.h, | 101 | /* Used as a temporary in SYNTAX_ENTRY and other macros in syntax.h, |
| 108 | if not compiled with GCC. No need to mark it, since it is used | 102 | if not compiled with GCC. No need to mark it, since it is used |
| 109 | only very temporarily. */ | 103 | only very temporarily. */ |
| 110 | Lisp_Object syntax_temp; | 104 | Lisp_Object syntax_temp; |
| 111 | 105 | ||
| 112 | /* Non-zero means an open parenthesis in column 0 is always considered | ||
| 113 | to be the start of a defun. Zero means an open parenthesis in | ||
| 114 | column 0 has no special meaning. */ | ||
| 115 | |||
| 116 | int open_paren_in_column_0_is_defun_start; | ||
| 117 | |||
| 118 | /* This is the internal form of the parse state used in parse-partial-sexp. */ | 106 | /* This is the internal form of the parse state used in parse-partial-sexp. */ |
| 119 | 107 | ||
| 120 | struct lisp_parse_state | 108 | struct lisp_parse_state |
| @@ -1220,12 +1208,6 @@ DEFUN ("internal-describe-syntax-value", Finternal_describe_syntax_value, | |||
| 1220 | return syntax; | 1208 | return syntax; |
| 1221 | } | 1209 | } |
| 1222 | 1210 | ||
| 1223 | int parse_sexp_ignore_comments; | ||
| 1224 | |||
| 1225 | /* Char-table of functions that find the next or previous word | ||
| 1226 | boundary. */ | ||
| 1227 | Lisp_Object Vfind_word_boundary_function_table; | ||
| 1228 | |||
| 1229 | /* Return the position across COUNT words from FROM. | 1211 | /* Return the position across COUNT words from FROM. |
| 1230 | If that many words cannot be found before the end of the buffer, return 0. | 1212 | If that many words cannot be found before the end of the buffer, return 0. |
| 1231 | COUNT negative means scan backward and stop at word beginning. */ | 1213 | COUNT negative means scan backward and stop at word beginning. */ |
| @@ -3482,31 +3464,31 @@ syms_of_syntax (void) | |||
| 3482 | Fput (Qscan_error, Qerror_message, | 3464 | Fput (Qscan_error, Qerror_message, |
| 3483 | make_pure_c_string ("Scan error")); | 3465 | make_pure_c_string ("Scan error")); |
| 3484 | 3466 | ||
| 3485 | DEFVAR_BOOL ("parse-sexp-ignore-comments", &parse_sexp_ignore_comments, | 3467 | DEFVAR_BOOL ("parse-sexp-ignore-comments", parse_sexp_ignore_comments, |
| 3486 | doc: /* Non-nil means `forward-sexp', etc., should treat comments as whitespace. */); | 3468 | doc: /* Non-nil means `forward-sexp', etc., should treat comments as whitespace. */); |
| 3487 | 3469 | ||
| 3488 | DEFVAR_BOOL ("parse-sexp-lookup-properties", &parse_sexp_lookup_properties, | 3470 | DEFVAR_BOOL ("parse-sexp-lookup-properties", parse_sexp_lookup_properties, |
| 3489 | doc: /* Non-nil means `forward-sexp', etc., obey `syntax-table' property. | 3471 | doc: /* Non-nil means `forward-sexp', etc., obey `syntax-table' property. |
| 3490 | Otherwise, that text property is simply ignored. | 3472 | Otherwise, that text property is simply ignored. |
| 3491 | See the info node `(elisp)Syntax Properties' for a description of the | 3473 | See the info node `(elisp)Syntax Properties' for a description of the |
| 3492 | `syntax-table' property. */); | 3474 | `syntax-table' property. */); |
| 3493 | 3475 | ||
| 3494 | words_include_escapes = 0; | 3476 | words_include_escapes = 0; |
| 3495 | DEFVAR_BOOL ("words-include-escapes", &words_include_escapes, | 3477 | DEFVAR_BOOL ("words-include-escapes", words_include_escapes, |
| 3496 | doc: /* Non-nil means `forward-word', etc., should treat escape chars part of words. */); | 3478 | doc: /* Non-nil means `forward-word', etc., should treat escape chars part of words. */); |
| 3497 | 3479 | ||
| 3498 | DEFVAR_BOOL ("multibyte-syntax-as-symbol", &multibyte_syntax_as_symbol, | 3480 | DEFVAR_BOOL ("multibyte-syntax-as-symbol", multibyte_syntax_as_symbol, |
| 3499 | doc: /* Non-nil means `scan-sexps' treats all multibyte characters as symbol. */); | 3481 | doc: /* Non-nil means `scan-sexps' treats all multibyte characters as symbol. */); |
| 3500 | multibyte_syntax_as_symbol = 0; | 3482 | multibyte_syntax_as_symbol = 0; |
| 3501 | 3483 | ||
| 3502 | DEFVAR_BOOL ("open-paren-in-column-0-is-defun-start", | 3484 | DEFVAR_BOOL ("open-paren-in-column-0-is-defun-start", |
| 3503 | &open_paren_in_column_0_is_defun_start, | 3485 | open_paren_in_column_0_is_defun_start, |
| 3504 | doc: /* *Non-nil means an open paren in column 0 denotes the start of a defun. */); | 3486 | doc: /* *Non-nil means an open paren in column 0 denotes the start of a defun. */); |
| 3505 | open_paren_in_column_0_is_defun_start = 1; | 3487 | open_paren_in_column_0_is_defun_start = 1; |
| 3506 | 3488 | ||
| 3507 | 3489 | ||
| 3508 | DEFVAR_LISP ("find-word-boundary-function-table", | 3490 | DEFVAR_LISP ("find-word-boundary-function-table", |
| 3509 | &Vfind_word_boundary_function_table, | 3491 | Vfind_word_boundary_function_table, |
| 3510 | doc: /* | 3492 | doc: /* |
| 3511 | Char table of functions to search for the word boundary. | 3493 | Char table of functions to search for the word boundary. |
| 3512 | Each function is called with two arguments; POS and LIMIT. | 3494 | Each function is called with two arguments; POS and LIMIT. |