branch: externals/a68-mode
commit 68563bc655ad5e2135e04f4e780b1cd765262a32
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Fix lexer regexp for -ssecca-
---
a68-mode.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 893f08d316..189b2a23f0 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -731,7 +731,7 @@ with the equivalent upcased form."
((looking-at "[A-Z][A-Za-z_]+")
(let* ((end (match-end 0))
(token (if (and (not (looking-at "[A-Z][A-Za-z_]+[ \t\n]*,"))
- (looking-back "access[ \t\n]*\\([A-Z][A-Za-z_]+[
\t\n]*,\\)*[ \t\n]*"))
+ (looking-back "access[ \t\n]*\\([
\t\n]*[A-Z][A-Za-z_]+[ \t\n]*,\\)*[ \t\n]*"))
"-ssecca-"
"-bold-")))
(goto-char end)
@@ -850,7 +850,7 @@ with the equivalent upcased form."
((looking-back "[A-Z][A-Za-z_]+" (pos-bol))
(goto-char (match-beginning 0))
(if (and (not (looking-at "[A-Z][A-Za-z_]+[ \t\n]*,"))
- (looking-back "access[ \t\n]*\\([A-Z][A-Za-z_]+[ \t\n]*,\\)*[
\t\n]*"))
+ (looking-back "access[ \t\n]*\\([ \t\n]*[A-Z][A-Za-z_]+[
\t\n]*,\\)*[ \t\n]*"))
"-ssecca-"
"-bold-"))
((and (looking-back "\\<[a-z]+:" (pos-bol))
@@ -1013,7 +1013,7 @@ UPPER stropping version."
((looking-at "[A-Z][A-Z_]+")
(let* ((end (match-end 0))
(token (if (and (not (looking-at "[A-Z][A-Z_]+[ \t\n]*,"))
- (looking-back "access[ \t\n]*\\([A-Z][A-Z_]+[
\t\n]*,\\)*[ \t\n]*"))
+ (looking-back "access[ \t\n]*\\([
\t\n]*[A-Z][A-Z_]+[ \t\n]*,\\)*[ \t\n]*"))
"-ssecca-"
"-bold-")))
(goto-char end)
@@ -1127,7 +1127,7 @@ UPPER stropping version."
((looking-back "[A-Z][A-Z]+" (pos-bol))
(goto-char (match-beginning 0))
(if (and (not (looking-at "[A-Z][A-Z_]+[ \t\n]*,"))
- (looking-back "access[ \t\n]*\\([A-Z][A-Z_]+[ \t\n]*,\\)*[
\t\n]*"))
+ (looking-back "access[ \t\n]*\\([ \t\n]*[A-Z][A-Z_]+[
\t\n]*,\\)*[ \t\n]*"))
"-ssecca-"
"-bold-"))
((looking-back "\\<[a-z]+:" (pos-bol))
