- (types (concat "\\.\\("
- (mapconcat
- #'(lambda (e)
- (replace-in-string e "\\." ""))
- module-extensions "\\|")
- "\\)$"))
- ;; http://issues.sxemacs.org/show_bug.cgi?id=162
- ;; (mapfam
- ;; #'(lambda (e)
- ;; (replace-in-string e "\\." ""))
- ;; :initiator "\\.\\("
- ;; :terminator "\\)$"
- ;; :separator "\\|"
- ;; :result-type #'concat module-extensions))