Mercurial > emacs

diff lisp/files.el @ 105965:3f64b8380468

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author Dan Nicolaescu <dann@ics.uci.edu>
date Thu, 12 Nov 2009 06:55:39 +0000
parents 21f6a54627b6
children 009383a57ce8
line wrap: on
line diff
--- a/lisp/files.el	Thu Nov 12 06:48:03 2009 +0000
+++ b/lisp/files.el	Thu Nov 12 06:55:39 2009 +0000
@@ -5945,7 +5945,7 @@
 ;; so that magic file name handlers will not apply to it.
 
 (setq file-name-handler-alist
-      (cons '("\\`/:" . file-name-non-special)
+      (cons (cons (purecopy "\\`/:") 'file-name-non-special)
 	    file-name-handler-alist))
 
 ;; We depend on being the last handler on the list,