diff options
| author | Andreas Schwab | 2003-02-02 17:31:49 +0000 |
|---|---|---|
| committer | Andreas Schwab | 2003-02-02 17:31:49 +0000 |
| commit | 4cac2fc3fa46f66883ddc593b88e98f6961315e0 (patch) | |
| tree | 5cee4738e5161c3268d6ba3d36402637cb1375e5 | |
| parent | d9c8518d9aaeb2eeba76db0e98887ee027861c9d (diff) | |
| download | emacs-4cac2fc3fa46f66883ddc593b88e98f6961315e0.tar.gz emacs-4cac2fc3fa46f66883ddc593b88e98f6961315e0.zip | |
(font-lock-match-c-style-declaration-item-and-skip-to-next):
Don't require underscore in word before double open-paren.
| -rw-r--r-- | lisp/font-lock.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index cf47f77d40d..4dfad0e8f4f 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -1740,7 +1740,7 @@ Does not move further than LIMIT. | |||
| 1740 | The expected syntax of a declaration/definition item is `word' (preceded by | 1740 | The expected syntax of a declaration/definition item is `word' (preceded by |
| 1741 | optional whitespace and `*' characters and proceeded by optional whitespace) | 1741 | optional whitespace and `*' characters and proceeded by optional whitespace) |
| 1742 | optionally followed by a `('. Everything following the item (but belonging to | 1742 | optionally followed by a `('. Everything following the item (but belonging to |
| 1743 | it) is expected to by skip-able by `scan-sexps', and items are expected to be | 1743 | it) is expected to be skip-able by `scan-sexps', and items are expected to be |
| 1744 | separated with a `,' and to be terminated with a `;'. | 1744 | separated with a `,' and to be terminated with a `;'. |
| 1745 | 1745 | ||
| 1746 | Thus the regexp matches after point: word ( | 1746 | Thus the regexp matches after point: word ( |
| @@ -1759,7 +1759,7 @@ This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item." | |||
| 1759 | (let ((pos (point))) | 1759 | (let ((pos (point))) |
| 1760 | (skip-chars-backward " \t\n") | 1760 | (skip-chars-backward " \t\n") |
| 1761 | (skip-syntax-backward "w") | 1761 | (skip-syntax-backward "w") |
| 1762 | (unless (looking-at "\\(\\sw+\\)[ \t\n]*\\sw*_\\sw*[ \t\n]*\\((\\)?") | 1762 | (unless (looking-at "\\(\\sw+\\)[ \t\n]*\\sw+[ \t\n]*\\(((?\\)?") |
| 1763 | ;; Looks like it was something else, so go back to where we | 1763 | ;; Looks like it was something else, so go back to where we |
| 1764 | ;; were and reset the match data by rematching. | 1764 | ;; were and reset the match data by rematching. |
| 1765 | (goto-char pos) | 1765 | (goto-char pos) |