From: Alan Mackenzie <acm@muc.de>
Date: Sat, 3 Dec 2005 11:04:17 +0000 (+0000)
Subject: Relace a `mapcan' with an "apply (n-conc (mapcar ....... ))".
X-Git-Tag: emacs-pretest-22.0.90~5537
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6faed041c71e6ef956fdfccacf0417bcc132d48f;p=emacs.git

Relace a `mapcan' with an "apply (n-conc (mapcar ....... ))".
---

diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el
index de2dab7ebc0..3c1df93e0f9 100644
--- a/lisp/progmodes/cc-langs.el
+++ b/lisp/progmodes/cc-langs.el
@@ -2580,15 +2580,17 @@ is in effect or not."
 	  (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