diff src/lread.c @ 105798:0ad1fc06bfc8

* puresize.h (BASE_PURESIZE): Increase to 1470000. * lread.c (Fload): Purecopy the file name when building Vpreloaded_file_list. * textmodes/ispell.el (ispell-skip-region-alist): * international/mule-conf.el (eight-bit): * international/fontset.el (font-encoding-alist): * startup.el (pure-space-overflow-message): * simple.el (overwrite-mode-textual, overwrite-mode-binary): * paths.el (gnus-nntp-service, rmail-spool-directory) (term-file-prefix): * files.el (save-some-buffers-action-alist): * cmuscheme.el (same-window-buffer-names): * ielm.el (same-window-buffer-names): * shell.el (same-window-buffer-names): * mail/sendmail.el (same-window-buffer-names): * progmodes/inf-lisp.el (same-window-buffer-names): * bindings.el (mode-line-client) (mode-line-column-line-number-mode-map): * language/tibetan.el (tibetan-precomposition-rule-regexp) (tibetan-precomposed-regexp): Purecopy string arguments.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 30 Oct 2009 02:00:11 +0000
parents 77cce41847d5
children 89183b6f6e9d
line wrap: on
line diff
--- a/src/lread.c	Thu Oct 29 16:46:52 2009 +0000
+++ b/src/lread.c	Fri Oct 30 02:00:11 2009 +0000
@@ -1242,7 +1242,7 @@
     }
 
   if (! NILP (Vpurify_flag))
-    Vpreloaded_file_list = Fcons (file, Vpreloaded_file_list);
+    Vpreloaded_file_list = Fcons (Fpurecopy(file), Vpreloaded_file_list);
 
   if (NILP (nomessage) || force_load_messages)
     {