From d3aadf0b0c33b32b3da52c787a55ff9fe05d8d92 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Sat, 16 Nov 1996 13:42:45 +0000 Subject: [PATCH] Use simpler fn. --- lisp/progmodes/simula.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/simula.el b/lisp/progmodes/simula.el index bf4fec8c465..c4de80bfd61 100644 --- a/lisp/progmodes/simula.el +++ b/lisp/progmodes/simula.el @@ -192,7 +192,7 @@ for SIMULA mode to function correctly.") (list (concat "\\<\\(array\\|boolean\\|character\\|integer\\|" "long\\|name\\|real\\|short\\|text\\|value\\)\\>" "\\([ \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. (goto-char (or (match-beginning 2) (match-end 1))) ;; Finish with point after first type specifier. @@ -203,7 +203,7 @@ for SIMULA mode to function correctly.") ;; Object references and their declarations. '("\\<\\(ref\\)\\>[ \t]*\\((\\(\\sw+\\))\\)?" (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))) )) "Gaudy level highlighting for Simula mode.") -- 2.39.2