Mercurial > emacs

comparison lisp/progmodes/scheme.el @ 61172:63e81f8ab916

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(scheme-mode-syntax-table): Update syntax of | and # for two-character comment syntax.
author Richard M. Stallman <rms@gnu.org>
date Thu, 31 Mar 2005 18:59:34 +0000
parents d5618f820425
children 32e74e80983b
comparison
equal deleted inserted replaced
61171:7647346fa1e1 61172:63e81f8ab916
88 ;; Brackets and braces balance for editing convenience. 88 ;; Brackets and braces balance for editing convenience.
89 (modify-syntax-entry ?\[ "(] " st) 89 (modify-syntax-entry ?\[ "(] " st)
90 (modify-syntax-entry ?\] ")[ " st) 90 (modify-syntax-entry ?\] ")[ " st)
91 (modify-syntax-entry ?{ "(} " st) 91 (modify-syntax-entry ?{ "(} " st)
92 (modify-syntax-entry ?} "){ " st) 92 (modify-syntax-entry ?} "){ " st)
93 (modify-syntax-entry ?\| " 23" st) 93 (modify-syntax-entry ?\| "\" 23b" table)
94 94
95 ;; Other atom delimiters 95 ;; Other atom delimiters
96 (modify-syntax-entry ?\( "() " st) 96 (modify-syntax-entry ?\( "() " st)
97 (modify-syntax-entry ?\) ")( " st) 97 (modify-syntax-entry ?\) ")( " st)
98 (modify-syntax-entry ?\; "< " st) 98 (modify-syntax-entry ?\; "< " st)
101 (modify-syntax-entry ?` "' " st) 101 (modify-syntax-entry ?` "' " st)
102 102
103 ;; Special characters 103 ;; Special characters
104 (modify-syntax-entry ?, "' " st) 104 (modify-syntax-entry ?, "' " st)
105 (modify-syntax-entry ?@ "' " st) 105 (modify-syntax-entry ?@ "' " st)
106 (modify-syntax-entry ?# "' 14" st) 106 (modify-syntax-entry ?# "' 14bn" table)
107 (modify-syntax-entry ?\\ "\\ " st) 107 (modify-syntax-entry ?\\ "\\ " st)
108 st)) 108 st))
109 109
110 (defvar scheme-mode-abbrev-table nil) 110 (defvar scheme-mode-abbrev-table nil)
111 (define-abbrev-table 'scheme-mode-abbrev-table ()) 111 (define-abbrev-table 'scheme-mode-abbrev-table ())