Mercurial > emacs
changeset 16582:608c038c2225
Use simpler fn.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Sat, 16 Nov 1996 13:42:45 +0000 |
| parents | 1d74abbf5ac3 |
| children | 483fc45a80b6 |
| files | lisp/progmodes/simula.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.")