mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Use simpler fn.

Browse source
This commit is contained in:
Simon Marshall 1996-11-16 13:42:45 +00:00
parent b31d859db5
commit d3aadf0b0c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/simula.el
View file

@ -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.")