branch: externals/a68-mode
commit 92d1f34ce412ff453b3533f9d12786d24e16a9c5
Author: Omar Polo <o...@omarpolo.com>
Commit: Omar Polo <o...@omarpolo.com>
cope with #...# comment style and shebang
---
a68-mode.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 85f259d596..4bb45f6242 100644
--- a/a68-mode.el
+++ b/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))
