diff options
| author | Simon Marshall | 1996-11-16 13:42:45 +0000 |
|---|---|---|
| committer | Simon Marshall | 1996-11-16 13:42:45 +0000 |
| commit | d3aadf0b0c33b32b3da52c787a55ff9fe05d8d92 (patch) | |
| tree | a2a54103e3d03d6ebe8639131ec16a10b9497101 | |
| parent | b31d859db5bf870fde0e61bec86b638f4e2343db (diff) | |
| download | emacs-d3aadf0b0c33b32b3da52c787a55ff9fe05d8d92.tar.gz emacs-d3aadf0b0c33b32b3da52c787a55ff9fe05d8d92.zip | |
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.") | |||
| 192 | (list (concat "\\<\\(array\\|boolean\\|character\\|integer\\|" | 192 | (list (concat "\\<\\(array\\|boolean\\|character\\|integer\\|" |
| 193 | "long\\|name\\|real\\|short\\|text\\|value\\)\\>" | 193 | "long\\|name\\|real\\|short\\|text\\|value\\)\\>" |
| 194 | "\\([ \t]+\\sw+\\>\\)*") | 194 | "\\([ \t]+\\sw+\\>\\)*") |
| 195 | '(font-lock-match-c++-style-declaration-item-and-skip-to-next | 195 | '(font-lock-match-c-style-declaration-item-and-skip-to-next |
| 196 | ;; Start with point after all type specifiers. | 196 | ;; Start with point after all type specifiers. |
| 197 | (goto-char (or (match-beginning 2) (match-end 1))) | 197 | (goto-char (or (match-beginning 2) (match-end 1))) |
| 198 | ;; Finish with point after first type specifier. | 198 | ;; Finish with point after first type specifier. |
| @@ -203,7 +203,7 @@ for SIMULA mode to function correctly.") | |||
| 203 | ;; Object references and their declarations. | 203 | ;; Object references and their declarations. |
| 204 | '("\\<\\(ref\\)\\>[ \t]*\\((\\(\\sw+\\))\\)?" | 204 | '("\\<\\(ref\\)\\>[ \t]*\\((\\(\\sw+\\))\\)?" |
| 205 | (3 font-lock-function-name-face nil t) | 205 | (3 font-lock-function-name-face nil t) |
| 206 | (font-lock-match-c++-style-declaration-item-and-skip-to-next nil nil | 206 | (font-lock-match-c-style-declaration-item-and-skip-to-next nil nil |
| 207 | (1 font-lock-variable-name-face))) | 207 | (1 font-lock-variable-name-face))) |
| 208 | )) | 208 | )) |
| 209 | "Gaudy level highlighting for Simula mode.") | 209 | "Gaudy level highlighting for Simula mode.") |