Mercurial > emacs
comparison lisp/progmodes/cc-langs.el @ 67278:cf00aa89f148
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 | 04d2abb755d9 |
| children | dc49655f57ae 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 67277:6b917e85bd8b | 67278:cf00aa89f148 |
|---|---|
| 2578 ;; syntax. | 2578 ;; syntax. |
| 2579 (let* ((extra-types | 2579 (let* ((extra-types |
| 2580 (when (boundp (c-mode-symbol "font-lock-extra-types")) | 2580 (when (boundp (c-mode-symbol "font-lock-extra-types")) |
| 2581 (c-mode-var "font-lock-extra-types"))) | 2581 (c-mode-var "font-lock-extra-types"))) |
| 2582 (regexp-strings | 2582 (regexp-strings |
| 2583 (mapcan (lambda (re) | 2583 (apply 'nconc |
| 2584 (mapcar (lambda (re) | |
| 2584 (when (string-match "[][.*+?^$\\]" re) | 2585 (when (string-match "[][.*+?^$\\]" re) |
| 2585 (list re))) | 2586 (list re))) |
| 2586 extra-types)) | 2587 extra-types))) |
| 2587 (plain-strings | 2588 (plain-strings |
| 2588 (mapcan (lambda (re) | 2589 (apply 'nconc |
| 2590 (mapcar (lambda (re) | |
| 2589 (unless (string-match "[][.*+?^$\\]" re) | 2591 (unless (string-match "[][.*+?^$\\]" re) |
| 2590 (list re))) | 2592 (list re))) |
| 2591 extra-types))) | 2593 extra-types)))) |
| 2592 (concat "\\<\\(" | 2594 (concat "\\<\\(" |
| 2593 (c-concat-separated | 2595 (c-concat-separated |
| 2594 (append (list (c-make-keywords-re nil | 2596 (append (list (c-make-keywords-re nil |
| 2595 (append (c-lang-const c-primitive-type-kwds) | 2597 (append (c-lang-const c-primitive-type-kwds) |
| 2596 plain-strings))) | 2598 plain-strings))) |