Commit d3aadf0b authored by Simon Marshall's avatar Simon Marshall

Use simpler fn.

parent b31d859d
...@@ -192,7 +192,7 @@ for SIMULA mode to function correctly.") ...@@ -192,7 +192,7 @@ for SIMULA mode to function correctly.")
(list (concat "\\<\\(array\\|boolean\\|character\\|integer\\|" (list (concat "\\<\\(array\\|boolean\\|character\\|integer\\|"
"long\\|name\\|real\\|short\\|text\\|value\\)\\>" "long\\|name\\|real\\|short\\|text\\|value\\)\\>"
"\\([ \t]+\\sw+\\>\\)*") "\\([ \t]+\\sw+\\>\\)*")
'(font-lock-match-c++-style-declaration-item-and-skip-to-next '(font-lock-match-c-style-declaration-item-and-skip-to-next
;; Start with point after all type specifiers. ;; Start with point after all type specifiers.
(goto-char (or (match-beginning 2) (match-end 1))) (goto-char (or (match-beginning 2) (match-end 1)))
;; Finish with point after first type specifier. ;; Finish with point after first type specifier.
...@@ -203,7 +203,7 @@ for SIMULA mode to function correctly.") ...@@ -203,7 +203,7 @@ for SIMULA mode to function correctly.")
;; Object references and their declarations. ;; Object references and their declarations.
'("\\<\\(ref\\)\\>[ \t]*\\((\\(\\sw+\\))\\)?" '("\\<\\(ref\\)\\>[ \t]*\\((\\(\\sw+\\))\\)?"
(3 font-lock-function-name-face nil t) (3 font-lock-function-name-face nil t)
(font-lock-match-c++-style-declaration-item-and-skip-to-next nil nil (font-lock-match-c-style-declaration-item-and-skip-to-next nil nil
(1 font-lock-variable-name-face))) (1 font-lock-variable-name-face)))
)) ))
"Gaudy level highlighting for Simula mode.") "Gaudy level highlighting for Simula mode.")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment