aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndreas Schwab2003-02-02 17:31:49 +0000
committerAndreas Schwab2003-02-02 17:31:49 +0000
commit4cac2fc3fa46f66883ddc593b88e98f6961315e0 (patch)
tree5cee4738e5161c3268d6ba3d36402637cb1375e5
parentd9c8518d9aaeb2eeba76db0e98887ee027861c9d (diff)
downloademacs-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.el4
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.
1740The expected syntax of a declaration/definition item is `word' (preceded by 1740The expected syntax of a declaration/definition item is `word' (preceded by
1741optional whitespace and `*' characters and proceeded by optional whitespace) 1741optional whitespace and `*' characters and proceeded by optional whitespace)
1742optionally followed by a `('. Everything following the item (but belonging to 1742optionally followed by a `('. Everything following the item (but belonging to
1743it) is expected to by skip-able by `scan-sexps', and items are expected to be 1743it) is expected to be skip-able by `scan-sexps', and items are expected to be
1744separated with a `,' and to be terminated with a `;'. 1744separated with a `,' and to be terminated with a `;'.
1745 1745
1746Thus the regexp matches after point: word ( 1746Thus 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)