[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