summaryrefslogtreecommitdiff
path: root/lisp/font-lock.el
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-07-04 09:17:34 +0000
committerGerd Moellmann <gerd@gnu.org>2001-07-04 09:17:34 +0000
commitb5e2c7a755cb352e9ac47095073e2c9eaa63c02b (patch)
tree2502b2364086f977d870ae5dcf04a907c5939831 /lisp/font-lock.el
parentc347a1c319586ae6de39bdc28fb5c33af3384885 (diff)
downloademacs-b5e2c7a755cb352e9ac47095073e2c9eaa63c02b.tar.gz
(c-font-lock-keywords-3): When matching something
like `struct X Y', finish with point after Y.
Diffstat (limited to 'lisp/font-lock.el')
-rw-r--r--lisp/font-lock.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index d1315fbc794..424db62a064 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -2372,7 +2372,11 @@ See also `c-font-lock-extra-types'.")
(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
+ nil
+ ;; Finish with point after the variable name if
+ ;; there is one.
+ `(if (match-end 2)
+ (goto-char (match-end 2)))
;; Fontify as a variable or function name.
'(1 (if (match-beginning 2)
font-lock-function-name-face