From 6d341a2a0941ec4cb3087636759017e9370f0c84 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Thu, 12 Nov 2009 06:55:39 +0000 Subject: * textmodes/ispell.el (ispell-skip-region-alist): * textmodes/css-mode.el (auto-mode-alist): * progmodes/compile.el (auto-mode-alist): * international/mule.el (ctext-non-standard-encodings-alist) (ctext-non-standard-encodings-regexp): * simple.el (shell-command-switch, text-read-only): * replace.el (occur-mode-map): * paths.el (rmail-file-name): * jka-cmpr-hook.el (jka-compr-build-file-regexp): * find-file.el (ff-special-constructs): * files.el (file-name-handler-alist): * composite.el: Purecopy strings. --- lisp/jka-cmpr-hook.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/jka-cmpr-hook.el') diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el index fab5c6ba925..6697d241987 100644 --- a/lisp/jka-cmpr-hook.el +++ b/lisp/jka-cmpr-hook.el @@ -71,10 +71,11 @@ Otherwise, it is nil.") (defun jka-compr-build-file-regexp () + (purecopy (mapconcat 'jka-compr-info-regexp jka-compr-compression-info-list - "\\|")) + "\\|"))) ;; Functions for accessing the return value of jka-compr-get-compression-info (defun jka-compr-info-regexp (info) (aref info 0)) -- cgit v1.2.1