commit - f6f819c913b0281cbc3691bcc32751b3811b7a6e
commit + 5881861eb13d3710f190e056a46bba5bca731984
blob - cac23cfd6a1fba26518dbeb872be236541177eab
blob + 85f259d5964de33907b0faedd12cf6d682dcf064
--- a68-mode.el
+++ a68-mode.el
(setq-local comment-start a68-comment-style)
(setq-local comment-end a68-comment-style)
(setq-local syntax-propertize-function
- (syntax-propertize-rules ((rx (group bow "COMMENT" eow)
- (group (*? anychar))
- (group bow "COMMENT" eow))
- (1 "<")
- (3 ">"))
- ((rx (group bow "CO" eow)
- (group (*? anychar))
- (group bow "CO" eow))
- (1 "<")
- (3 ">"))
- ;; ((rx (group "#")
- ;; (group (*? anychar))
- ;; (group "#"))
- ;; (1 "<")
- ;; (3 ">"))
- )))
+ (syntax-propertize-rules
+ ((rx (group bow "COMMENT" eow)
+ (group (*? anychar))
+ (group bow "COMMENT" eow))
+ (1 "<")
+ (3 ">"))
+ ((rx (group bow "CO" eow)
+ (group (*? anychar))
+ (group bow "CO" eow))
+ (1 "<")
+ (3 ">"))
+ ;; ((rx (group "#\\[^!\\]")
+ ;; (group (*? anychar))
+ ;; (group "#"))
+ ;; (1 "<")
+ ;; (3 ">"))
+ )))
;;;###autoload
(add-to-list 'auto-mode-alist '("\\.a68\\'" . a68-mode))