diff options
author | Jim Blandy <jimb@redhat.com> | 1992-05-18 08:14:41 +0000 |
---|---|---|
committer | Jim Blandy <jimb@redhat.com> | 1992-05-18 08:14:41 +0000 |
commit | ad00bb3e9c751c615e336b2e1c25872870714301 (patch) | |
tree | 983f03cd593f925d292efce62d6588cedd98f5b7 /lisp/loadup.el | |
parent | e629f0884e5803c0d303d07dd137d4321c7477ce (diff) | |
download | emacs-ad00bb3e9c751c615e336b2e1c25872870714301.tar.gz |
*** empty log message ***
Diffstat (limited to 'lisp/loadup.el')
-rw-r--r-- | lisp/loadup.el | 5 |
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) |