Re: with-temp-buffer and undo

[Lars Hansen]

Stefan Monnier wrote:

>>!     `(let ((,temp-buffer (generate-new-buffer " *temp*"))
>>!            (buffer-undo-list t))
>>    
>>
>
>Buffer whose name start with a space have their undo disabled by default.
>I.e. someone thought of that years ago already,
>  
>
Then my previous patch can be simplified.
Any objections?

*** desktop.el.~1.99.~  2006-02-19 15:43:52.000000000 +0100
--- desktop.el  2006-05-12 19:42:09.642918747 +0200
***************
*** 763,773 ****
                          (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"
          desktop-header
--- 763,770 ----
                          (setq locals (cdr locals)))
                        ll)))
                (buffer-list)))
!           (eager desktop-restore-eager))
!       (with-temp-buffer
          (insert
           ";; -*- mode: emacs-lisp; coding: emacs-mule; -*-\n"
           desktop-header
***************
*** 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))
  
  ;; 
----------------------------------------------------------------------------
--- 798,804 ----
                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))
  
  ;; 
----------------------------------------------------------------------------