diff options
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el index 8b42eaaddb8..220870588fb 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2229,8 +2229,7 @@ since only a single case-insensitive search through the alist is made." ;; directives in that file. That way is discouraged since it ;; spreads out the definition of the initial value. (mapcar - (lambda (elt) - (cons (purecopy (car elt)) (cdr elt))) + 'purecopy-car `(;; do this first, so that .html.pl is Polish html, not Perl ("\\.[sx]?html?\\(\\.[a-zA-Z_]+\\)?\\'" . html-mode) ("\\.svgz?\\'" . image-mode) @@ -2454,8 +2453,7 @@ and `magic-mode-alist', which determines modes based on file contents.") ;; file. That way is discouraged since it spreads out the ;; definition of the initial value. (mapcar - (lambda (l) - (cons (purecopy (car l)) (cdr l))) + 'purecopy-car '(("perl" . perl-mode) ("perl5" . perl-mode) ("miniperl" . perl-mode) |