Mercurial > emacs
comparison lisp/progmodes/scheme.el @ 109757:818e325e0469
Introduce a new comment style "c" flag.
* src/syntax.c (SYNTAX_FLAGS_COMMENT_STYLEB)
(SYNTAX_FLAGS_COMMENT_STYLEC): New macros.
(SYNTAX_FLAGS_COMMENT_STYLE): Use them, add an argument.
(syntax_prefix_flag_p): New function.
(Fstring_to_syntax): Understand new "c" flag.
(Finternal_describe_syntax_value): Recognize new flag; use the
SYNTAX_FLAGS_* macros.
(scan_sexps_forward, Fparse_partial_sexp): Change representation of
comment style to accomodate the new styles.
(back_comment, forw_comment, Fforward_comment, scan_lists)
(scan_sexps_forward): Update code to obey the new comment style flag.
* src/syntax.h: Move SYNTAX_FLAGS_FOO() macros to syntax.c.
* src/casefiddle.c (casify_region): Use the new syntax_prefix_flag_p.
* lisp/progmodes/octave-mod.el (octave-mode-syntax-table): Use the new "c"
comment style.
* lisp/progmodes/scheme.el (scheme-mode-syntax-table):
* lisp/emacs-lisp/lisp-mode.el (lisp-mode-syntax-table): Remove spurious
"b" flag in "14b" syntax.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 12 Aug 2010 16:44:16 +0200 |
| parents | 1d1d5d9bd884 |
| children | b47e85affa59 |
comparison
equal
deleted
inserted
replaced
| 109756:23910b0d49d9 | 109757:818e325e0469 |
|---|---|
| 105 (modify-syntax-entry ?` "' " st) | 105 (modify-syntax-entry ?` "' " st) |
| 106 | 106 |
| 107 ;; Special characters | 107 ;; Special characters |
| 108 (modify-syntax-entry ?, "' " st) | 108 (modify-syntax-entry ?, "' " st) |
| 109 (modify-syntax-entry ?@ "' " st) | 109 (modify-syntax-entry ?@ "' " st) |
| 110 (modify-syntax-entry ?# "' 14b" st) | 110 (modify-syntax-entry ?# "' 14" st) |
| 111 (modify-syntax-entry ?\\ "\\ " st) | 111 (modify-syntax-entry ?\\ "\\ " st) |
| 112 st)) | 112 st)) |
| 113 | 113 |
| 114 (defvar scheme-mode-abbrev-table nil) | 114 (defvar scheme-mode-abbrev-table nil) |
| 115 (define-abbrev-table 'scheme-mode-abbrev-table ()) | 115 (define-abbrev-table 'scheme-mode-abbrev-table ()) |