From: Stefan Kangas Date: Wed, 24 Mar 2021 05:23:10 +0000 (+0100) Subject: * lisp/progmodes/simula.el (hilit-set-mode-patterns): Use regexp-opt. X-Git-Tag: emacs-28.0.90~3166 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca194ae5c9d63c032827af6c58132b066bce7fbd;p=emacs.git * lisp/progmodes/simula.el (hilit-set-mode-patterns): Use regexp-opt. --- diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index ef157ce4ab7..f92f4468098 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\\)\\>" nil keyword) + ((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)) nil 'case-insensitive)))