branch: externals/a68-mode
commit 1f7f3b05039b78c16781cd1697c859ec585c2302
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Rewrite a68--oper-regexp to not require posix semantics
Thanks to Stefan Monnier.
---
a68-mode.el | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 3607479552..23d8f91827 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -746,13 +746,12 @@ with the equivalent upcased form."
;; - A monad followed by a nomad, or
;; - A monad optionally followed by a nomad followd by either
;; := or =:, but not by both.
+
(defvar a68--oper-regexp
- (concat "\\("
- "\\(" (regexp-opt a68--monads) "\\)"
- "\\|"
- "\\(" (regexp-opt a68--monads) (regexp-opt a68--nomads) "\\)"
- "\\|"
- "\\(" (regexp-opt a68--monads) (regexp-opt a68--nomads) "?"
"\\(:=\\|=:\\)" "\\)"
+ (concat "\\(?:"
+ (regexp-opt a68--monads)
+ (regexp-opt a68--nomads) "?"
+ "\\(?::=\\|=:\\)?"
"\\)"))
(defun a68-at-strong-void-enclosed-clause-supper ()
@@ -829,7 +828,7 @@ with the equivalent upcased form."
(let ((case-fold-search nil))
(cond
;; operator.
- ((posix-looking-at a68--oper-regexp)
+ ((looking-at a68--oper-regexp)
(goto-char (match-end 0))
"-oper-")
;; A bold-word may be a ssecca insert if it is preceded by a
