commit 5881861eb13d3710f190e056a46bba5bca731984
from: Omar Polo <op@omarpolo.com>
date: Sun Nov 14 22:37:10 2021 UTC

fmt

commit - f6f819c913b0281cbc3691bcc32751b3811b7a6e
commit + 5881861eb13d3710f190e056a46bba5bca731984
blob - cac23cfd6a1fba26518dbeb872be236541177eab
blob + 85f259d5964de33907b0faedd12cf6d682dcf064
--- a68-mode.el
+++ a68-mode.el
@@ -216,22 +216,23 @@
   (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))