# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 848151765 0
# Node ID 608c038c22253bc2b204a184345947735f4ab902
# Parent  1d74abbf5ac3a0ff8f852df18b21c5ec21b83033
Use simpler fn.

diff -r 1d74abbf5ac3 -r 608c038c2225 lisp/progmodes/simula.el
--- a/lisp/progmodes/simula.el	Sat Nov 16 13:37:51 1996 +0000
+++ b/lisp/progmodes/simula.el	Sat Nov 16 13:42:45 1996 +0000
@@ -192,7 +192,7 @@
     (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 @@
     ;; 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.")