diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0620164c6dd..920eea268f4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-08-23  Alan Mackenzie  <acm@muc.de>
+
+	* progmodes/cc-fonts.el (c-font-lock-declarators): Fix infinite
+	loop, bug #18306.  The bug was introduced on 2014-08-02.
+
 2014-08-21  Eli Zaretskii  <eliz@gnu.org>
 
 	* textmodes/texnfo-upd.el (texinfo-specific-section-type): Don't
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el
index a107ef01250..ceb86b45fb1 100644
--- a/lisp/progmodes/cc-fonts.el
+++ b/lisp/progmodes/cc-fonts.el
@@ -1116,14 +1116,11 @@ casts and declarations are fontified.  Used on level 2 and higher."
 	    ;; initializing brace lists.
 	    (let (found)
 	      (while
-	    	  (and (setq found
-	    		     (c-syntactic-re-search-forward
-	    		      "[;,]\\|\\s)\\|\\'\\|\\(=\\|\\s(\\)" limit t t))
-	    	       (eq (char-before) ?\[))
-	    	(backward-char)
-	    	(c-safe (c-forward-sexp 1))
-	    	(setq found nil)
-	    	(setq brackets-after-id t))
+		  (and (setq found (c-syntactic-re-search-forward
+			     "[;,]\\|\\s)\\|\\'\\|\\(=\\|\\s(\\)" limit t t))
+		       (eq (char-before) ?\[)
+		       (c-go-up-list-forward))
+		     (setq brackets-after-id t))
 	      found))
 
       (setq next-pos (match-beginning 0)