diff options
| author | Simon Marshall <simon@gnu.org> | 1996-11-16 13:42:45 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1996-11-16 13:42:45 +0000 |
| commit | fa064d18eddf9d56b893264a98c0646e58ac6ef6 (patch) | |
| tree | 31163f8de8b7e30f505a5d36ecbcef3ca72b1057 | |
| parent | 6a6da3032cd56f6154e86a1666e8efb764d07a8e (diff) | |
| download | emacs-fa064d18eddf9d56b893264a98c0646e58ac6ef6.tar.gz | |
Use simpler fn.
| -rw-r--r-- | lisp/progmodes/simula.el | 4 |
1 files 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.") |