Re: Big desktop undo buffer crashes Emacs

[Lars Hansen]

Luc Teirlinck wrote:

>Is there any reason to keep this buffer hanging around
>consuming some memory and being user visible?
>  
>
I don't think there is. I suggest to use with-temp-buffer (and
buffer-disable-undo)
Patch attached.

*** desktop.el.~1.99.~  2006-02-19 15:43:52.000000000 +0100
--- desktop.el  2006-05-12 08:47:57.615841646 +0200
***************
*** 763,772 ****
                          (setq locals (cdr locals)))
                        ll)))
                (buffer-list)))
!           (eager desktop-restore-eager)
!           (buf (get-buffer-create "*desktop*")))
!       (set-buffer buf)
!       (erase-buffer)
  
        (insert
          ";; -*- mode: emacs-lisp; coding: emacs-mule; -*-\n"
--- 763,771 ----
                          (setq locals (cdr locals)))
                        ll)))
                (buffer-list)))
!           (eager desktop-restore-eager))
!       (with-temp-buffer
!         (buffer-disable-undo)
  
          (insert
           ";; -*- mode: emacs-lisp; coding: emacs-mule; -*-\n"
***************
*** 801,807 ****
              info)
        (setq default-directory dirname)
        (let ((coding-system-for-write 'emacs-mule))
!         (write-region (point-min) (point-max) filename nil 'nomessage))))
    (setq desktop-dirname dirname))
  
  ;; 
----------------------------------------------------------------------------
--- 800,806 ----
                info)
          (setq default-directory dirname)
          (let ((coding-system-for-write 'emacs-mule))
!           (write-region (point-min) (point-max) filename nil 'nomessage)))))
    (setq desktop-dirname dirname))
  
  ;; 
----------------------------------------------------------------------------