Do <* *> via syntax table not regexps; use regexp-opt.

1 files changed, 26 insertions, 39 deletions

diff --git a/lisp/progmodes/modula2.el b/lisp/progmodes/modula2.el
index 47ef7d97017..c28758538ed 100644
--- a/lisp/progmodes/modula2.el
+++ b/lisp/progmodes/modula2.el
@@ -151,14 +151,14 @@ followed by the first character of the construct.
   (setq font-lock-defaults
         '((m3-font-lock-keywords
            m3-font-lock-keywords-1 m3-font-lock-keywords-2)
-          nil nil ((?_ . "w") (?. . "w")) nil
+          nil nil ((?_ . "w") (?. . "w") (?< . ". 1") (?> . ". 4")) nil
           ;; Obsoleted by Emacs 19.35 parse-partial-sexp's COMMENTSTOP.
           ;(font-lock-comment-start-regexp . "(\\*")
           ))
   (run-hooks 'm2-mode-hook))
 
-;; Regexps written with help from Ron Forrester <ron@orcad.com>.
-
+;; Regexps written with help from Ron Forrester <ron@orcad.com>
+;; and Spencer Allain <sallain@teknowledge.com>.
 (defconst m3-font-lock-keywords-1
   '(
     ;;
@@ -174,7 +174,10 @@ followed by the first character of the construct.
       (1 font-lock-reference-face)))
     ;;
     ;; Pragmas as warnings.
-    ("<\\*.*\\*>" . font-lock-warning-face)
+    ;; Spencer Allain <sallain@teknowledge.com> says do them as comments...
+    ;; ("<\\*.*\\*>" . font-lock-warning-face)
+    ;; ... but instead we fontify the first word.
+    ("<\\*[ \t]*\\(\\sw+\\)" 1 font-lock-warning-face prepend)
     )
   "Subdued level highlighting for Modula-3 modes.")
 
@@ -182,42 +185,25 @@ followed by the first character of the construct.
   (append m3-font-lock-keywords-1
    (eval-when-compile
      (let ((m3-types
-;           (make-regexp
-;            '("INTEGER" "BITS" "BOOLEAN" "CARDINAL" "CHAR" "FLOAT"
-;              "LONGREAL" "REAL" "REFANY" "ADDRESS" "ARRAY" "TEXT"))
-            (concat "A\\(DDRESS\\|RRAY\\)\\|B\\(ITS\\|OOLEAN\\)\\|"
-                    "C\\(ARDINAL\\|HAR\\)\\|FLOAT\\|INTEGER\\|LONGREAL\\|"
-                    "RE\\(AL\\|FANY\\)\\|TEXT"))
+            (regexp-opt
+             '("INTEGER" "BITS" "BOOLEAN" "CARDINAL" "CHAR" "FLOAT" "REAL"
+               "LONGREAL" "REFANY" "ADDRESS" "ARRAY" "SET" "TEXT"
+               "MUTEX" "ROOT" "EXTENDED")))
            (m3-keywords
-;           (make-regexp
-;            '("AND" "ANY" "AS" "BEGIN" "BRANDED" "BY" "CASE" "CONST" "DIV"
-;              "DO" "ELSE" "ELSIF" "EVAL" "EXCEPT" "EXIT" "EXTENDED" "FINALLY"
-;              "FOR" "IF" "IN" "LOCK" "LOOP" "METHODS" "MOD" "MUTEX" "NOT"
-;              "OBJECT" "OF" "OR" "OVERRIDES" "READONLY" "RECORD" "REF"
-;              "REPEAT" "RETURN" "REVEAL" "ROOT" "SET" "THEN" "TO" "TRY"
-;              "TYPE" "TYPECASE" "UNSAFE" "UNTIL" "UNTRACED" "VAR" "VALUE"
-;              "WHILE" "WITH"))
-            (concat "A\\(N[DY]\\|S\\)\\|B\\(EGIN\\|RANDED\\|Y\\)\\|"
-                    "C\\(ASE\\|ONST\\)\\|D\\(IV\\|O\\)\\|"
-                    "E\\(LS\\(E\\|IF\\)\\|VAL\\|"
-                    "X\\(CEPT\\|IT\\|TENDED\\)\\)\\|F\\(INALLY\\|OR\\)\\|"
-                    "I[FN]\\|LO\\(CK\\|OP\\)\\|M\\(ETHODS\\|OD\\|UTEX\\)\\|"
-                    "NOT\\|O\\([FR]\\|BJECT\\|VERRIDES\\)\\|"
-                    "R\\(E\\(ADONLY\\|CORD\\|F\\|PEAT\\|TURN\\|VEAL\\)\\|"
-                    "OOT\\)\\|SET\\|T\\(HEN\\|O\\|RY\\|YPE\\(\\|CASE\\)\\)\\|"
-                    "UN\\(SAFE\\|T\\(IL\\|RACED\\)\\)\\|VA\\(LUE\\|R\\)\\|"
-                    "W\\(HILE\\|ITH\\)"))
+            (regexp-opt
+             '("AND" "ANY" "AS" "BEGIN" "BRANDED" "BY" "CASE" "CONST" "DIV"
+               "DO" "ELSE" "ELSIF" "EVAL" "EXCEPT" "EXIT" "FINALLY"
+               "FOR" "GENERIC" "IF" "IN" "LOCK" "LOOP" "METHODS" "MOD" "NOT"
+               "OBJECT" "OF" "OR" "OVERRIDES" "READONLY" "RECORD" "REF"
+               "REPEAT" "RETURN" "REVEAL" "THEN" "TO" "TRY"
+               "TYPE" "TYPECASE" "UNSAFE" "UNTIL" "UNTRACED" "VAR" "VALUE"
+               "WHILE" "WITH")))
            (m3-builtins
-;           (make-regexp
-;            '("ABS" "ADR" "ADRSIZE" "BITSIZE" "BYTESIZE" "CEILING"
-;              "DEC" "DISPOSE" "FIRST" "FLOOR" "INC" "ISTYPE" "LAST"
-;              "LOOPHOLE" "MAX" "MIN" "NARROW" "NEW" "NUMBER" "ORD"
-;              "ROUND" "SUBARRAY" "TRUNC" "TYPECODE" "VAL"))
-            (concat "A\\(BS\\|DR\\(\\|SIZE\\)\\)\\|B\\(ITSIZE\\|YTESIZE\\)\\|"
-                    "CEILING\\|D\\(EC\\|ISPOSE\\)\\|F\\(IRST\\|LOOR\\)\\|"
-                    "I\\(NC\\|STYPE\\)\\|L\\(AST\\|OOPHOLE\\)\\|"
-                    "M\\(AX\\|IN\\)\\|N\\(ARROW\\|EW\\|UMBER\\)\\|ORD\\|"
-                    "ROUND\\|SUBARRAY\\|T\\(RUNC\\|YPECODE\\)\\|VAL"))
+            (regexp-opt
+             '("ABS" "ADR" "ADRSIZE" "BITSIZE" "BYTESIZE" "CEILING"
+               "DEC" "DISPOSE" "FIRST" "FLOOR" "INC" "ISTYPE" "LAST"
+               "LOOPHOLE" "MAX" "MIN" "NARROW" "NEW" "NUMBER" "ORD"
+               "ROUND" "SUBARRAY" "TRUNC" "TYPECODE" "VAL")))
            )
        (list
         ;;
@@ -233,7 +219,8 @@ followed by the first character of the construct.
         ;; Fontify tokens as function names.
         '("\\<\\(END\\|EXCEPTION\\|RAISES?\\)\\>[ \t{]*"
           (1 font-lock-keyword-face)
-          (font-lock-match-c-style-declaration-item-and-skip-to-next nil nil
+          (font-lock-match-c-style-declaration-item-and-skip-to-next
+           nil (goto-char (match-end 0))
            (1 font-lock-function-name-face)))
         ;;
         ;; Fontify constants as references.