commit 92d1f34ce412ff453b3533f9d12786d24e16a9c5
from: Omar Polo <op@omarpolo.com>
date: Sun Nov 14 22:39:49 2021 UTC

cope with #...# comment style and shebang

commit - 5881861eb13d3710f190e056a46bba5bca731984
commit + 92d1f34ce412ff453b3533f9d12786d24e16a9c5
blob - 85f259d5964de33907b0faedd12cf6d682dcf064
blob + 4bb45f624228ab0200aab45ca8574e1d46c9c2ed
--- a68-mode.el
+++ a68-mode.el
@@ -227,12 +227,14 @@
                     (group bow "CO" eow))
                 (1 "<")
                 (3 ">"))
-               ;; ((rx (group "#\\[^!\\]")
-               ;;      (group (*? anychar))
-               ;;      (group "#"))
-               ;;  (1 "<")
-               ;;  (3 ">"))
-               )))
+               ;; a comment is # ... #, but I don't want the
+               ;; (eventual) shebang #! to be considered the start of
+               ;; the comment.
+               ((rx (group "#" (not "!"))
+                    (group (*? anychar))
+                    (group "#"))
+                (1 "<")
+                (3 ">")))))
 
 ;;;###autoload
 (add-to-list 'auto-mode-alist '("\\.a68\\'" . a68-mode))