(c-font-lock-keywords-3): When matching something

like `struct X Y', finish with point after Y.

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa7ba593558..6cff9a10269 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-04  Gerd Moellmann  <gerd@gnu.org>
+
+        * font-lock.el (c-font-lock-keywords-3): When matching something
+        like `struct X Y', finish with point after Y.
+
 2001-07-03  Eli Zaretskii  <eliz@is.elta.co.il>
 
         * find-file.el (ff-find-the-other-file): Use file-name-nondirectory
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