branch: externals/a68-mode
commit ea95b6d9654741f8d568c782a16648225c562e1c
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>

    Revert "Bring the upper lexer up to date"
    
    This reverts commit 7c01f0b3d3343e09c0ccd886a70d0d4c0ce30895.
---
 a68-mode.el | 41 +----------------------------------------
 1 file changed, 1 insertion(+), 40 deletions(-)

diff --git a/a68-mode.el b/a68-mode.el
index b2d9bddd4c..f658ad8ec1 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -641,7 +641,7 @@ with the equivalent upcased form."
                       ("-stdmode-"))
     (portrayer-pack ("(" portrayer ")"))
     (portrayer (portrayer "," portrayer)
-               (declarer "-dectag-") ; XXX handle insert in lexer.
+               (declarer "-dectag-")
                (id))
     ;; Units
     ;; =====
@@ -1218,25 +1218,6 @@ UPPER stropping version."
   (forward-comment (point-max))
   (let ((case-fold-search nil))
     (cond
-     ;; Standard mode indicators.
-     ((looking-at (concat "\\<" (regexp-opt a68-std-modes-upper) "\\>"))
-      (goto-char (match-end 0))
-      "-stdmode-")
-     ;; operator.
-     ((posix-looking-at a68--oper-regexp)
-      (goto-char (match-end 0))
-      "-oper-")
-     ;; = can be an equal operator or an is-defined-token.
-     ((looking-at "=")
-      (let ((token (cond
-                    ((looking-back "\\<[A-Z][A-Z_]+\\>[ \n\t]*")
-                     "-bold=-")
-                    ((looking-back (concat a68--oper-regexp "[ \n\t]*"))
-                     "-op=-")
-                    (t
-                      "="))))
-        (goto-char (+ (point) 1))
-        token))
      ;; A bold-word may be a ssecca insert if it is preceded by a
      ;; joined list of bold words, preceded by access.
      ((looking-at "[A-Z][A-Z_]+")
@@ -1353,26 +1334,6 @@ UPPER stropping version."
   (forward-comment (- (point)))
   (let ((case-fold-search nil))
     (cond
-     ;; Standard mode indicators.
-     ((looking-back (concat "\\<" (regexp-opt a68-std-modes-upper) "\\>")
-                    (pos-bol))
-      (goto-char (match-beginning 0))
-      "-stdmode-")
-     ;; operator, so any nomad or monad.
-     ((looking-back a68--oper-regexp
-                    (pos-bol))
-      (goto-char (match-beginning 0))
-      "-oper-")
-     ((looking-back "=")
-      (let ((token (cond
-                    ((looking-back "\\<[A-Z][A-Z_]+\\>[ \n\t]*=")
-                     "-bold=-")
-                    ((looking-back (concat a68--oper-regexp "[ \n\t]*="))
-                     "-op=-")
-                    (t
-                     "="))))
-        (goto-char (- (point) 1))
-        token))
      ((looking-back "[A-Z][A-Z]+" (pos-bol))
       (goto-char (match-beginning 0))
       (if (and (not (looking-at "[A-Z][A-Z_]+[ \t\n]*,"))

Reply via email to