Mercurial > emacs

changeset 67278:cf00aa89f148

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Relace a `mapcan' with an "apply (n-conc (mapcar ....... ))".
author Alan Mackenzie <acm@muc.de>
date Sat, 03 Dec 2005 11:04:17 +0000
parents 6b917e85bd8b
children 8cf27ba1d450
files lisp/progmodes/cc-langs.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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