Mercurial > emacs
changeset 40339:6a06f9b1f448
(c-font-lock-keywords-2): Do not require labels to be alone on the line.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Fri, 26 Oct 2001 15:04:58 +0000 |
| parents | ffc4cf9a7cbd |
| children | 5800d6cc4718 |
| files | lisp/ChangeLog lisp/font-lock.el |
| diffstat | 2 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Oct 26 14:25:06 2001 +0000 +++ b/lisp/ChangeLog Fri Oct 26 15:04:58 2001 +0000 @@ -1,3 +1,8 @@ +2001-10-26 Sam Steingold <sds@gnu.org> + + * font-lock.el (c-font-lock-keywords-2): Do not require labels to + be alone on the line. + 2001-10-26 Eli Zaretskii <eliz@is.elta.co.il> * button.el (button): Special face definition for MS-DOS
--- a/lisp/font-lock.el Fri Oct 26 14:25:06 2001 +0000 +++ b/lisp/font-lock.el Fri Oct 26 15:04:58 2001 +0000 @@ -2332,12 +2332,7 @@ (save-excursion (skip-chars-forward "^:\n") (point)) nil (1 font-lock-constant-face nil t))) - ;; Anders Lindgren <andersl@andersl.com> points out that it is quicker to - ;; use MATCH-ANCHORED to effectively anchor the regexp on the left. - ;; This must come after the one for keywords and targets. - '(":" ("^[ \t]*\\(\\sw+\\)[ \t]*:[ \t]*$" - (beginning-of-line) (end-of-line) - (1 font-lock-constant-face))) + '("\\(\\sw+\\)[ \t]*:" 1 font-lock-constant-face) ))) (setq c-font-lock-keywords-3 @@ -2372,10 +2367,10 @@ (list 1 'font-lock-keyword-face) (list ,(+ c-type-specs-depth 2) 'font-lock-type-face nil t) (list 'font-lock-match-c-style-declaration-item-and-skip-to-next - nil + nil ;; Finish with point after the variable name if ;; there is one. - `(if (match-end 2) + `(if (match-end 2) (goto-char (match-end 2))) ;; Fontify as a variable or function name. '(1 (if (match-beginning 2)