[A68-MODE][COMMITTED 08/10] a68--oper-regexp regires posix semantics

Jose E. Marchesi jemarch@gnu.org
Thu May 15 09:59:12 GMT 2025


---
 a68-mode.el | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/a68-mode.el b/a68-mode.el
index 353603f..3607479 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -373,11 +373,6 @@ with the equivalent upcased form."
          ("module" exp "def"  exp "fed")
          ("module" exp "def" exp "postlude" exp "fed"))
     ;; Declarations:
-    (declaration (type-decl)
-                 (proc-decl))
-    (type-decl ("mode" type-decl*))
-    (type-decl* (type-decl* "," type-decl*)
-                (id "=" type-decl**))
     (type-decl** ("struct" args)
                  ("union" args)
                  ("proc" args))
@@ -834,7 +829,7 @@ with the equivalent upcased form."
   (let ((case-fold-search nil))
     (cond
      ;; operator.
-     ((looking-at a68--oper-regexp)
+     ((posix-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
-- 
2.30.2



More information about the Algol68 mailing list