[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ca194ae 2/2: * lisp/progmodes/simula.el (hilit-set-mode-patterns)
From: |
Stefan Kangas |
Subject: |
master ca194ae 2/2: * lisp/progmodes/simula.el (hilit-set-mode-patterns): Use regexp-opt. |
Date: |
Wed, 24 Mar 2021 01:27:23 -0400 (EDT) |
branch: master
commit ca194ae5c9d63c032827af6c58132b066bce7fbd
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* lisp/progmodes/simula.el (hilit-set-mode-patterns): Use regexp-opt.
---
lisp/progmodes/simula.el | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el
index ef157ce..f92f446 100644
--- a/lisp/progmodes/simula.el
+++ b/lisp/progmodes/simula.el
@@ -1573,7 +1573,19 @@ If not nil and not t, move to limit of search and return
nil."
("^%\\([ \t\f].*\\)?$" nil comment)
("^%include\\>" nil include)
("\"[^\"\n]*\"\\|'.'\\|'![0-9]+!'" nil string)
-
("\\<\\(ACTIVATE\\|AFTER\\|AND\\|ARRAY\\|AT\\|BEFORE\\|BEGIN\\|BOOLEAN\\|CHARACTER\\|CLASS\\|DELAY\\|DO\\|ELSE\\|END\\|EQ\\|EQV\\|EXTERNAL\\|FALSE\\|FOR\\|GE\\|GO\\|GOTO\\|GT\\|HIDDEN\\|IF\\|IMP\\|IN\\|INNER\\|INSPECT\\|INTEGER\\|IS\\|LABEL\\|LE\\|LONG\\|LT\\|NAME\\|NE\\|NEW\\|NONE\\|NOT\\|NOTEXT\\|OR\\|OTHERWISE\\|PRIOR\\|PROCEDURE\\|PROTECTED\\|QUA\\|REACTIVATE\\|REAL\\|REF\\|SHORT\\|STEP\\|SWITCH\\|TEXT\\|THEN\\|THIS\\|TO\\|TRUE\\|UNTIL\\|VALUE\\|VIRTUAL\\|WHEN\\|WHILE\\)\\>"
n [...]
+ ((regexp-opt '("ACTIVATE" "AFTER" "AND" "ARRAY" "AT" "BEFORE"
+ "BEGIN" "BOOLEAN" "CHARACTER" "CLASS" "DELAY"
+ "DO" "ELSE" "END" "EQ" "EQV" "EXTERNAL" "FALSE"
+ "FOR" "GE" "GO" "GOTO" "GT" "HIDDEN" "IF" "IMP"
+ "IN" "INNER" "INSPECT" "INTEGER" "IS" "LABEL"
+ "LE" "LONG" "LT" "NAME" "NE" "NEW" "NONE" "NOT"
+ "NOTEXT" "OR" "OTHERWISE" "PRIOR" "PROCEDURE"
+ "PROTECTED" "QUA" "REACTIVATE" "REAL" "REF"
+ "SHORT" "STEP" "SWITCH" "TEXT" "THEN" "THIS"
+ "TO" "TRUE" "UNTIL" "VALUE" "VIRTUAL" "WHEN"
+ "WHILE")
+ 'words)
+ nil keyword)
("!\\|\\<COMMENT\\>" ";" comment))
nil 'case-insensitive)))