# 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