diff options
| author | Sam Steingold <sds@gnu.org> | 2011-02-01 16:37:12 -0500 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2011-02-01 16:37:12 -0500 |
| commit | e8e4d5c88e04390481b3156c0e5efe40979d8519 (patch) | |
| tree | 91e183a5d20a036e1e03c544e693adfa8b09ec73 /lisp/files.el | |
| parent | abef340a0c5304054a2a5e6d95e1d825501f0e7a (diff) | |
| download | emacs-e8e4d5c88e04390481b3156c0e5efe40979d8519.tar.gz | |
undo 2011-02-01T18:15:18Z!sds@gnu.org (purecopy-cons, purecopy-car) at Stefan Monnier's request
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 220870588fb..8b42eaaddb8 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2229,7 +2229,8 @@ 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 - 'purecopy-car + (lambda (elt) + (cons (purecopy (car elt)) (cdr elt))) `(;; do this first, so that .html.pl is Polish html, not Perl ("\\.[sx]?html?\\(\\.[a-zA-Z_]+\\)?\\'" . html-mode) ("\\.svgz?\\'" . image-mode) @@ -2453,7 +2454,8 @@ 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 - 'purecopy-car + (lambda (l) + (cons (purecopy (car l)) (cdr l))) '(("perl" . perl-mode) ("perl5" . perl-mode) ("miniperl" . perl-mode) |