- (let ((kw (mapconcat 'identity
- '("class" "defm" "def" "field" "include" "in"
- "let" "multiclass")
- "\\|"))
- (type-kw (mapconcat 'identity
- '("bit" "bits" "code" "dag" "int" "list" "string")
- "\\|"))
+ (let ((kw (regexp-opt '("class" "defm" "def" "field" "include" "in"
+ "let" "multiclass" "foreach")
+ 'words))
+ (type-kw (regexp-opt '("bit" "bits" "code" "dag" "int" "list" "string")
+ 'words))