From 8911efc087b4a83813b2dd92a69c3ef33e10fbbd Mon Sep 17 00:00:00 2001 From: Chris Mann Date: Tue, 23 Dec 2008 22:42:21 +1030 Subject: [PATCH] * wesnoth-mode.el (wesnoth-element-type): Fix a bug where incorrect matches could occur. --- wesnoth-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/wesnoth-mode.el b/wesnoth-mode.el index 779912b..06b2d8a 100644 --- a/wesnoth-mode.el +++ b/wesnoth-mode.el @@ -256,6 +256,7 @@ level as their parent.") (modify-syntax-entry ?# "<" wesnoth-syntax-table) (modify-syntax-entry ?\" "\"" wesnoth-syntax-table) (modify-syntax-entry ?= "." wesnoth-syntax-table) + (modify-syntax-entry ?| "w" wesnoth-syntax-table) (modify-syntax-entry ?_ "_" wesnoth-syntax-table) (modify-syntax-entry ?- "_" wesnoth-syntax-table) (modify-syntax-entry ?. "_" wesnoth-syntax-table) @@ -367,7 +368,7 @@ of the element." ("\\(\\w\\|_\\)+[\t ]*=" . attribute) ("#\\(enddef\\|define \\|e\\(lse\\|nd\\(\\(de\\|i\\)f\\)\\)\\|\\(ifn?\\|un\\)def \\)" . preprocessor) ("#.*$" . comment) - ("[^\t\n |]+") . nil))) + ("[^\t ]+") . nil))) (catch 'result (dolist (pair element-matches) (when (looking-at (car pair)) -- 2.11.4.GIT