[A68-MODE][COMMITTED 05/10] Fix lexer regexp for -ssecca-

[Jose E. Marchesi]

---
 a68-mode.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/a68-mode.el b/a68-mode.el
index 893f08d..189b2a2 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))
-- 
2.30.2