branch: externals/a68-mode
commit 69562e5adba94675f0a641352b5932fcd345d407
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Recognize COMMENT and CO in syntax-propertize-rules only in upper-case
---
a68-mode.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 5d3e4ff680..c8e0658102 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -234,14 +234,14 @@
(setq-local comment-end a68-comment-style)
(setq-local syntax-propertize-function
(syntax-propertize-rules
- ((rx (group bow "COMMENT" eow)
+ ((rx (group bow "[C][O][M][M][E][N][T]" eow)
(group (*? anychar))
- (group bow "COMMENT" eow))
+ (group bow "[C][O][M][M][E][N][T]" eow))
(1 "<")
(3 ">"))
- ((rx (group bow "CO" eow)
+ ((rx (group bow "[C][O]" eow)
(group (*? anychar))
- (group bow "CO" eow))
+ (group bow "[C][O]" eow))
(1 "<")
(3 ">"))
;; a comment is # ... #, but I don't want the
