branch: externals/a68-mode
commit 655077341012552fa400f6e82349eb736773e39d
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Fix logic in a68-at-post-unit
---
a68-mode.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index befb22d96c..cf639b722b 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -651,10 +651,10 @@ with the equivalent upcased form."
;; mode-indication consists of the symbols "loc" and "heap",
;; plus those symbols which may immediately precede a
;; mode-indication in an actual-MODE-declarer.
- (and (looking-back "[A-Z][A-Za-z_]+")
- (looking-back (regexp-opt '("loc" "heap"
- "ref" ")" "]"
- "proc" "flex")))))))
+ (or (looking-back "[A-Z][A-Za-z_]+")
+ (looking-back (regexp-opt '("loc" "heap"
+ "ref" ")" "]"
+ "proc" "flex")))))))
(defun a68--smie-forward-token ()
(forward-comment (point-max))
