diff --git a/misc/fuel/fuel-syntax.el b/misc/fuel/fuel-syntax.el index b6409b2fea..31e79b7c4a 100644 --- a/misc/fuel/fuel-syntax.el +++ b/misc/fuel/fuel-syntax.el @@ -240,20 +240,19 @@ (modify-syntax-entry ?\r " " table) (modify-syntax-entry ?\ " " table) (modify-syntax-entry ?\n " " table) - (modify-syntax-entry ?\( "()" table) - (modify-syntax-entry ?\) ")(" table) table)) (defconst fuel-syntax--syntactic-keywords - `(;; CHARs: - ("\\(CHAR:\\|POSTPONE:\\|\\\\\\) \\(.\\)\\( \\|$\\)" (2 "w")) - ;; Comments: + `(;; Comments ("\\_<\\(#?!\\) .*\\(\n\\|$\\)" (1 "<") (2 ">")) ("\\_<\\(#?!\\)\\(\n\\|$\\)" (1 "<") (2 ">")) - ;; Strings + ;; Strings and chars + ("CHAR: \\(\"\\) [^\\\"]*?\\(\"\\)\\([^\\\"]\\|\\\\.\\)*?\\(\"\\)" + (1 "w") (2 "\"") (4 "\"")) + ("\\(CHAR:\\|POSTPONE:\\|\\\\\\) \\(.\\)\\( \\|$\\)" (2 "w")) ("\\( \\|^\\)\\(DLL\\|P\\|SBUF\\)\\(\"\\)\\([^\n\r\f\\\"]\\|\\\\.\\)*?\\(\"\\)" (3 "\"") (5 "\"")) - ("\\(\"\\)\\([^\n\r\f\\\"]\\|\\\\.\\)*?\\(\"\\)" (1 "\"") (3 "\"")) + ("\\_<\\(\"\\)\\([^\n\r\f\\\"]\\|\\\\.\\)*?\\(\"\\)" (1 "\"") (3 "\"")) ("\\_<<\\(\"\\)\\_>" (1 "\\_>" (1 ">b")) ;; Multiline constructs @@ -277,6 +276,8 @@ ;; Parenthesis: ("\\_<\\((\\)\\_>" (1 "()")) ("\\_<\\()\\)\\_>" (1 ")(")) + ("\\_<(\\((\\)\\_>" (1 "()")) + ("\\_<\\()\\))\\_>" (1 ")(")) ;; Quotations: ("\\_<'\\(\\[\\)\\_>" (1 "(]")) ; fried ("\\_<\\(\\[\\)\\_>" (1 "(]"))