[Emacs-diffs] emacs lisp/ChangeLog lisp/bindings.el lisp/cmus...

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/10/30 02:00:40

Modified files:
        lisp           : ChangeLog bindings.el cmuscheme.el files.el 
                         ielm.el paths.el shell.el simple.el startup.el 
        lisp/international: fontset.el mule-conf.el 
        lisp/language  : tibetan.el 
        lisp/mail      : sendmail.el 
        lisp/progmodes : inf-lisp.el python.el 
        lisp/textmodes : ispell.el 
        src            : ChangeLog lread.c puresize.h 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16522&r2=1.16523
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bindings.el?cvsroot=emacs&r1=1.230&r2=1.231
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cmuscheme.el?cvsroot=emacs&r1=1.53&r2=1.54
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1096&r2=1.1097
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ielm.el?cvsroot=emacs&r1=1.65&r2=1.66
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/paths.el?cvsroot=emacs&r1=1.87&r2=1.88
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/shell.el?cvsroot=emacs&r1=1.167&r2=1.168
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.1021&r2=1.1022
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/startup.el?cvsroot=emacs&r1=1.548&r2=1.549
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/fontset.el?cvsroot=emacs&r1=1.106&r2=1.107
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-conf.el?cvsroot=emacs&r1=1.101&r2=1.102
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/language/tibetan.el?cvsroot=emacs&r1=1.36&r2=1.37
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/sendmail.el?cvsroot=emacs&r1=1.333&r2=1.334
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/inf-lisp.el?cvsroot=emacs&r1=1.52&r2=1.53
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/python.el?cvsroot=emacs&r1=1.98&r2=1.99
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.261&r2=1.262
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7830&r2=1.7831
http://cvs.savannah.gnu.org/viewcvs/emacs/src/lread.c?cvsroot=emacs&r1=1.414&r2=1.415
http://cvs.savannah.gnu.org/viewcvs/emacs/src/puresize.h?cvsroot=emacs&r1=1.120&r2=1.121

Patches:
Index: lisp/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16522
retrieving revision 1.16523
diff -u -b -r1.16522 -r1.16523
--- lisp/ChangeLog      28 Oct 2009 18:35:33 -0000      1.16522
+++ lisp/ChangeLog      30 Oct 2009 02:00:11 -0000      1.16523
@@ -1,3 +1,23 @@
+2009-10-30  Dan Nicolaescu  <address@hidden>
+
+       * 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.
+
 2009-10-28  Stefan Monnier  <address@hidden>
 
        * calc/calc.el (calc, calc-refresh, calc-trail-buffer, calc-record)

Index: lisp/bindings.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.230
retrieving revision 1.231
diff -u -b -r1.230 -r1.231
--- lisp/bindings.el    26 Oct 2009 06:43:39 -0000      1.230
+++ lisp/bindings.el    30 Oct 2009 02:00:25 -0000      1.231
@@ -151,7 +151,7 @@
 (defvar mode-line-client
   `(""
     (:propertize ("" (:eval (if (frame-parameter nil 'client) "@" "")))
-                help-echo "emacsclient frame"))
+                help-echo ,(purecopy "emacsclient frame")))
   "Mode-line control for identifying emacsclient frames.")
 ;;;###autoload
 (put 'mode-line-client 'risky-local-variable t)
@@ -315,11 +315,11 @@
        (menu-map (make-sparse-keymap "Toggle Line and Column Number Display")))
     (define-key menu-map [line-number-mode]
       `(menu-item ,(purecopy "Display Line Numbers") line-number-mode
-                 :help "Toggle displaying line numbers in the mode-line"
+                 :help ,(purecopy "Toggle displaying line numbers in the 
mode-line")
                  :button (:toggle . line-number-mode)))
     (define-key menu-map [column-number-mode]
       `(menu-item ,(purecopy "Display Column Numbers") column-number-mode
-                 :help "Toggle displaying column numbers in the mode-line"
+                 :help ,(purecopy "Toggle displaying column numbers in the 
mode-line")
                  :button (:toggle . column-number-mode)))
     (define-key map [mode-line down-mouse-1] menu-map)
     map) "\

Index: lisp/cmuscheme.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cmuscheme.el,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -b -r1.53 -r1.54
--- lisp/cmuscheme.el   1 Feb 2009 22:32:44 -0000       1.53
+++ lisp/cmuscheme.el   30 Oct 2009 02:00:28 -0000      1.54
@@ -248,7 +248,7 @@
   (setq scheme-program-name cmd)
   (setq scheme-buffer "*scheme*")
   (pop-to-buffer "*scheme*"))
-;;;###autoload (add-hook 'same-window-buffer-names "*scheme*")
+;;;###autoload (add-hook 'same-window-buffer-names (purecopy "*scheme*"))
 
 (defun scheme-start-file (prog)
   "Return the name of the start file corresponding to PROG.

Index: lisp/files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.1096
retrieving revision 1.1097
diff -u -b -r1.1096 -r1.1097
--- lisp/files.el       26 Oct 2009 06:43:39 -0000      1.1096
+++ lisp/files.el       30 Oct 2009 02:00:29 -0000      1.1097
@@ -4400,7 +4400,7 @@
           (recursive-edit))
         ;; Return nil to ask about BUF again.
         nil)
-     "view this buffer")
+     ,(purecopy "view this buffer"))
     (?d ,(lambda (buf)
            (if (null (buffer-file-name buf))
                (message "Not applicable: no file")
@@ -4413,7 +4413,7 @@
                (recursive-edit)))
            ;; Return nil to ask about BUF again.
            nil)
-       "view changes in this buffer"))
+       ,(purecopy "view changes in this buffer")))
   "ACTION-ALIST argument used in call to `map-y-or-n-p'.")
 (put 'save-some-buffers-action-alist 'risky-local-variable t)
 

Index: lisp/ielm.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ielm.el,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -b -r1.65 -r1.66
--- lisp/ielm.el        5 Jan 2009 03:19:22 -0000       1.65
+++ lisp/ielm.el        30 Oct 2009 02:00:29 -0000      1.66
@@ -541,7 +541,7 @@
 
 ;;; User command
 
-;;;###autoload (add-hook 'same-window-buffer-names "*ielm*")
+;;;###autoload (add-hook 'same-window-buffer-names (purecopy "*ielm*"))
 
 ;;;###autoload
 (defun ielm nil

Index: lisp/paths.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/paths.el,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -b -r1.87 -r1.88
--- lisp/paths.el       11 Sep 2009 06:42:16 -0000      1.87
+++ lisp/paths.el       30 Oct 2009 02:00:29 -0000      1.88
@@ -122,7 +122,7 @@
 The name of the host running an NNTP server.
 The null string means use the local host as the server site.")
 
-(defvar gnus-nntp-service "nntp" "\
+(defvar gnus-nntp-service (purecopy "nntp") "\
 NNTP service name, usually \"nntp\" or 119.
 Go to a local news spool if its value is nil, in which case `gnus-nntp-server'
 should be set to `(system-name)'.")
@@ -138,6 +138,7 @@
   :version "21.1")
 
 (defvar rmail-spool-directory
+  (purecopy
   (cond ((file-exists-p "/var/mail")
         ;; SVR4 and recent BSD are said to use this.
         ;; Rather than trying to know precisely which systems use it,
@@ -148,7 +149,7 @@
         "/var/spool/mail/")
        ((memq system-type '(hpux usg-unix-v irix))
         "/usr/mail/")
-       (t "/usr/spool/mail/"))
+       (t "/usr/spool/mail/")))
   "Name of directory used by system mailer for delivering new mail.
 Its name should end with a slash.")
 
@@ -177,7 +178,7 @@
   :group 'environment
   :type 'file)
 
-(defvar term-file-prefix "term/" "\
+(defvar term-file-prefix (purecopy "term/") "\
 If non-nil, Emacs startup does (load (concat term-file-prefix (getenv 
\"TERM\")))
 You may set this variable to nil in your `.emacs' file if you do not wish
 the terminal-initialization file to be loaded.")

Index: lisp/shell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/shell.el,v
retrieving revision 1.167
retrieving revision 1.168
diff -u -b -r1.167 -r1.168
--- lisp/shell.el       25 Sep 2009 04:35:18 -0000      1.167
+++ lisp/shell.el       30 Oct 2009 02:00:29 -0000      1.168
@@ -575,7 +575,7 @@
   buffer)
 
 ;; Don't do this when shell.el is loaded, only while dumping.
-;;;###autoload (add-hook 'same-window-buffer-names "*shell*")
+;;;###autoload (add-hook 'same-window-buffer-names (purecopy "*shell*"))
 
 ;;; Directory tracking
 ;;

Index: lisp/simple.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/simple.el,v
retrieving revision 1.1021
retrieving revision 1.1022
diff -u -b -r1.1021 -r1.1022
--- lisp/simple.el      26 Oct 2009 14:59:16 -0000      1.1021
+++ lisp/simple.el      30 Oct 2009 02:00:30 -0000      1.1022
@@ -5228,9 +5228,9 @@
   (message "Word wrapping %s"
           (if word-wrap "enabled" "disabled")))
 
-(defvar overwrite-mode-textual " Ovwrt"
+(defvar overwrite-mode-textual (purecopy " Ovwrt")
   "The string displayed in the mode line when in overwrite mode.")
-(defvar overwrite-mode-binary " Bin Ovwrt"
+(defvar overwrite-mode-binary (purecopy " Bin Ovwrt")
   "The string displayed in the mode line when in binary overwrite mode.")
 
 (defun overwrite-mode (arg)

Index: lisp/startup.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/startup.el,v
retrieving revision 1.548
retrieving revision 1.549
diff -u -b -r1.548 -r1.549
--- lisp/startup.el     26 Oct 2009 06:43:40 -0000      1.548
+++ lisp/startup.el     30 Oct 2009 02:00:30 -0000      1.549
@@ -382,9 +382,9 @@
 (defvar pure-space-overflow nil
   "Non-nil if building Emacs overflowed pure space.")
 
-(defvar pure-space-overflow-message "\
+(defvar pure-space-overflow-message (purecopy "\
 Warning Warning!!!  Pure space overflow    !!!Warning Warning
-\(See the node Pure Storage in the Lisp manual for details.)\n")
+\(See the node Pure Storage in the Lisp manual for details.)\n"))
 
 (defcustom tutorial-directory
   (file-name-as-directory (expand-file-name "tutorials" data-directory))

Index: lisp/international/fontset.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/fontset.el,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -b -r1.106 -r1.107
--- lisp/international/fontset.el       4 Oct 2009 02:11:58 -0000       1.106
+++ lisp/international/fontset.el       30 Oct 2009 02:00:31 -0000      1.107
@@ -34,6 +34,8 @@
 ;; Setup font-encoding-alist for all known encodings.
 
 (setq font-encoding-alist
+      (mapcar (lambda (arg)
+               (cons (purecopy (car arg)) (cdr arg)))
       '(("iso8859-1$" . iso-8859-1)
        ("iso8859-2$" . iso-8859-2)
        ("iso8859-3$" . iso-8859-3)
@@ -116,7 +118,7 @@
        ("mulelao-1" . mule-lao)
        ("muletibetan-2" . tibetan)
        ("muletibetan-0" . tibetan)
-       ("muletibetan-1" . tibetan-1-column)))
+       ("muletibetan-1" . tibetan-1-column))))
 
 (defvar font-encoding-charset-alist)
 

Index: lisp/international/mule-conf.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-conf.el,v
retrieving revision 1.101
retrieving revision 1.102
diff -u -b -r1.101 -r1.102
--- lisp/international/mule-conf.el     12 Aug 2009 20:43:58 -0000      1.101
+++ lisp/international/mule-conf.el     30 Oct 2009 02:00:32 -0000      1.102
@@ -109,8 +109,8 @@
 (put-charset-property
  'emacs :long-name "Emacs")
 
-(put-charset-property 'eight-bit :docstring "Raw bytes 128-255")
-(put-charset-property 'eight-bit :short-name "Raw bytes")
+(put-charset-property 'eight-bit :docstring (purecopy "Raw bytes 128-255"))
+(put-charset-property 'eight-bit :short-name (purecopy "Raw bytes"))
 
 (define-charset-alias 'ucs 'unicode)
 

Index: lisp/language/tibetan.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/language/tibetan.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -b -r1.36 -r1.37
--- lisp/language/tibetan.el    19 Aug 2009 11:22:01 -0000      1.36
+++ lisp/language/tibetan.el    30 Oct 2009 02:00:32 -0000      1.37
@@ -568,6 +568,7 @@
 from a roman transcription to the corresponding Tibetan character.")
 
 (defvar tibetan-precomposed-regexp
+  (purecopy
   (let ((l tibetan-precomposed-transcription-alist)
        temp)
     (setq temp "^\\(")
@@ -578,12 +579,13 @@
       (setq temp
            (concat temp "\\|" (car (car l))))
       (setq l (cdr l)))
-    (concat temp "\\)"))
+    (concat temp "\\)")))
   "Regexp string to match a romanized Tibetan complex consonant.
 The result of matching is to be used for indexing alists when the input key
 from an input method is converted to the corresponding precomposed glyph.")
 
 (defvar tibetan-precomposition-rule-regexp
+  (purecopy
   (let ((l tibetan-precomposition-rule-alist)
        temp)
     (setq temp "\\(")
@@ -592,7 +594,7 @@
     (while l
       (setq temp (concat temp "\\|" (car (car l))))
       (setq l (cdr l)))
-    (concat temp "\\)"))
+    (concat temp "\\)")))
   "Regexp string to match a sequence of Tibetan consonantic components, i.e.,
 one base consonant and one or more subjoined consonants.
 The result of matching is to be used for indexing alist when the component

Index: lisp/mail/sendmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/sendmail.el,v
retrieving revision 1.333
retrieving revision 1.334
diff -u -b -r1.333 -r1.334
--- lisp/mail/sendmail.el       26 Oct 2009 06:43:41 -0000      1.333
+++ lisp/mail/sendmail.el       30 Oct 2009 02:00:33 -0000      1.334
@@ -1645,7 +1645,7 @@
 ;; Put these commands last, to reduce chance of lossage from quitting
 ;; in middle of loading the file.
 
-;;;###autoload (add-hook 'same-window-buffer-names "*mail*")
+;;;###autoload (add-hook 'same-window-buffer-names (purecopy "*mail*"))
 
 ;;;###autoload
 (defun mail (&optional noerase to subject in-reply-to cc replybuffer actions)

Index: lisp/progmodes/inf-lisp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/inf-lisp.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- lisp/progmodes/inf-lisp.el  24 Sep 2009 01:37:21 -0000      1.52
+++ lisp/progmodes/inf-lisp.el  30 Oct 2009 02:00:34 -0000      1.53
@@ -308,7 +308,7 @@
        (inferior-lisp-mode)))
   (setq inferior-lisp-buffer "*inferior-lisp*")
   (pop-to-buffer "*inferior-lisp*"))
-;;;###autoload (add-hook 'same-window-buffer-names "*inferior-lisp*")
+;;;###autoload (add-hook 'same-window-buffer-names (purecopy 
"*inferior-lisp*"))
 
 ;;;###autoload
 (defalias 'run-lisp 'inferior-lisp)

Index: lisp/progmodes/python.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/python.el,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -b -r1.98 -r1.99
--- lisp/progmodes/python.el    2 Oct 2009 03:48:46 -0000       1.98
+++ lisp/progmodes/python.el    30 Oct 2009 02:00:34 -0000      1.99
@@ -87,8 +87,8 @@
 ;;;###autoload
 (add-to-list 'interpreter-mode-alist '("python" . python-mode))
 ;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
-(add-to-list 'same-window-buffer-names "*Python*")
+(add-to-list 'auto-mode-alist (cons (purecopy "\\.py\\'")  'python-mode))
+(add-to-list 'same-window-buffer-names (purecopy "*Python*"))
 
 ;;;; Font lock
 

Index: lisp/textmodes/ispell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.261
retrieving revision 1.262
diff -u -b -r1.261 -r1.262
--- lisp/textmodes/ispell.el    23 Oct 2009 16:01:22 -0000      1.261
+++ lisp/textmodes/ispell.el    30 Oct 2009 02:00:35 -0000      1.262
@@ -1393,16 +1393,16 @@
 
 ;;;###autoload
 (defvar ispell-skip-region-alist
-  '((ispell-words-keyword         forward-line)
+  `((ispell-words-keyword         forward-line)
     (ispell-dictionary-keyword    forward-line)
     (ispell-pdict-keyword         forward-line)
     (ispell-parsing-keyword       forward-line)
-    ("^---*BEGIN PGP [A-Z ]*--*" . "^---*END PGP [A-Z ]*--*")
+    (,(purecopy "^---*BEGIN PGP [A-Z ]*--*") . ,(purecopy "^---*END PGP [A-Z 
]*--*"))
     ;; assume multiline uuencoded file? "\nM.*$"?
-    ("^begin [0-9][0-9][0-9] [^ \t]+$" . "\nend\n")
-    ("^%!PS-Adobe-[123].0"      . "\n%%EOF\n")
-    ("^---* \\(Start of \\)?[Ff]orwarded [Mm]essage"
-     . "^---* End of [Ff]orwarded [Mm]essage")
+    (,(purecopy "^begin [0-9][0-9][0-9] [^ \t]+$") . ,(purecopy "\nend\n"))
+    (,(purecopy "^%!PS-Adobe-[123].0")  . ,(purecopy "\n%%EOF\n"))
+    (,(purecopy "^---* \\(Start of \\)?[Ff]orwarded [Mm]essage")
+     . ,(purecopy "^---* End of [Ff]orwarded [Mm]essage"))
     ;; Matches e-mail addresses, file names, http addresses, etc.  The
     ;; `-+' `_+' patterns are necessary for performance reasons when
     ;; `-' or `_' part of word syntax.

Index: src/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7830
retrieving revision 1.7831
diff -u -b -r1.7830 -r1.7831
--- src/ChangeLog       29 Oct 2009 14:33:44 -0000      1.7830
+++ src/ChangeLog       30 Oct 2009 02:00:36 -0000      1.7831
@@ -1,3 +1,9 @@
+2009-10-30  Dan Nicolaescu  <address@hidden>
+
+       * puresize.h (BASE_PURESIZE): Increase to 1470000.
+
+       * lread.c (Fload): Purecopy the file name when building 
Vpreloaded_file_list.
+
 2009-10-29  Jason Rumney  <address@hidden>
 
        * w32fns.c (syms_of_w32fns): Change default value of

Index: src/lread.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/lread.c,v
retrieving revision 1.414
retrieving revision 1.415
diff -u -b -r1.414 -r1.415
--- src/lread.c 15 Sep 2009 03:45:53 -0000      1.414
+++ src/lread.c 30 Oct 2009 02:00:39 -0000      1.415
@@ -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)
     {

Index: src/puresize.h
===================================================================
RCS file: /cvsroot/emacs/emacs/src/puresize.h,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -b -r1.120 -r1.121
--- src/puresize.h      26 Oct 2009 10:39:42 -0000      1.120
+++ src/puresize.h      30 Oct 2009 02:00:39 -0000      1.121
@@ -41,7 +41,7 @@
 #endif
 
 #ifndef BASE_PURESIZE
-#define BASE_PURESIZE (1430000 + SYSTEM_PURESIZE_EXTRA + 
SITELOAD_PURESIZE_EXTRA)
+#define BASE_PURESIZE (1470000 + SYSTEM_PURESIZE_EXTRA + 
SITELOAD_PURESIZE_EXTRA)
 #endif
 
 /* Increase BASE_PURESIZE by a ratio depending on the machine's word size.  */