# HG changeset patch
# User Alan Mackenzie <acm@muc.de>
# Date 1133607857 0
# Node ID cf00aa89f148b13067e663dfaab475e57c9fc989
# Parent  6b917e85bd8b502637600b0c6c466de404396c3c
Relace a `mapcan' with an "apply (n-conc (mapcar ....... ))".

diff -r 6b917e85bd8b -r cf00aa89f148 lisp/progmodes/cc-langs.el
--- a/lisp/progmodes/cc-langs.el	Sat Dec 03 09:48:08 2005 +0000
+++ b/lisp/progmodes/cc-langs.el	Sat Dec 03 11:04:17 2005 +0000
@@ -2580,15 +2580,17 @@
 	  (when (boundp (c-mode-symbol "font-lock-extra-types"))
 	    (c-mode-var "font-lock-extra-types")))
 	 (regexp-strings
-	  (mapcan (lambda (re)
+	  (apply 'nconc
+		 (mapcar (lambda (re)
 		    (when (string-match "[][.*+?^$\\]" re)
 		      (list re)))
-		  extra-types))
+		  extra-types)))
 	 (plain-strings
-	  (mapcan (lambda (re)
+	  (apply 'nconc
+		 (mapcar (lambda (re)
 		    (unless (string-match "[][.*+?^$\\]" re)
 		      (list re)))
-		  extra-types)))
+		  extra-types))))
     (concat "\\<\\("
 	    (c-concat-separated
 	     (append (list (c-make-keywords-re nil