*** empty log message ***

1 files changed, 5 insertions, 0 deletions

diff --git a/lisp/loadup.el b/lisp/loadup.el
index a94f4d6cc25..3b8e7bbd67e 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -18,6 +18,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; We don't want to have any undo records in the dumped Emacs.
+(buffer-disable-undo "*scratch*")
 
 (load "subr")
 (load "map-ynp")
@@ -107,6 +109,9 @@
 (load "site-init" t)
 (garbage-collect)
 
+;;; At this point, we're ready to resume undo recording for scratch.
+(buffer-enable-undo "*scratch*")
+
 (if (or (equal (nth 3 command-line-args) "dump")
         (equal (nth 4 command-line-args) "dump"))
     (if (eq system-type 'vax-vms)