1744 |
(mapc |
(mapc |
1745 |
(lambda (elt) |
(lambda (elt) |
1746 |
(cons (purecopy (car elt)) (cdr elt))) |
(cons (purecopy (car elt)) (cdr elt))) |
1747 |
'(;; do this first, so that .html.pl is Polish html, not Perl |
`(;; do this first, so that .html.pl is Polish html, not Perl |
1748 |
("\\.s?html?\\(\\.[a-zA-Z_]+\\)?\\'" . html-mode) |
("\\.s?html?\\(\\.[a-zA-Z_]+\\)?\\'" . html-mode) |
1749 |
("\\.te?xt\\'" . text-mode) |
("\\.te?xt\\'" . text-mode) |
1750 |
("\\.[tT]e[xX]\\'" . tex-mode) |
("\\.[tT]e[xX]\\'" . tex-mode) |
1762 |
("\\.ad[abs]\\'" . ada-mode) |
("\\.ad[abs]\\'" . ada-mode) |
1763 |
("\\.ad[bs].dg\\'" . ada-mode) |
("\\.ad[bs].dg\\'" . ada-mode) |
1764 |
("\\.\\([pP]\\([Llm]\\|erl\\|od\\)\\|al\\)\\'" . perl-mode) |
("\\.\\([pP]\\([Llm]\\|erl\\|od\\)\\|al\\)\\'" . perl-mode) |
|
("\\.mk\\'" . makefile-gmake-mode) ; Might be any make, give Gnu the host advantage |
|
|
("[Mm]akefile\\'" . makefile-mode) |
|
1765 |
("GNUmakefile\\'" . makefile-gmake-mode) |
("GNUmakefile\\'" . makefile-gmake-mode) |
1766 |
|
,@(if (memq system-type '(berkeley-unix next-mach darwin)) |
1767 |
|
'(("\\.mk\\'" . makefile-bsdmake-mode) |
1768 |
|
("[Mm]akefile\\'" . makefile-bsdmake-mode)) |
1769 |
|
'(("\\.mk\\'" . makefile-gmake-mode) ; Might be any make, give Gnu the host advantage |
1770 |
|
("[Mm]akefile\\'" . makefile-mode))) |
1771 |
("Makeppfile\\'" . makefile-makepp-mode) |
("Makeppfile\\'" . makefile-makepp-mode) |
1772 |
("\\.am\\'" . makefile-automake-mode) |
("\\.am\\'" . makefile-automake-mode) |
1773 |
;; Less common extensions come here |
;; Less common extensions come here |