Re: with-temp-buffer and undo

From: Lars Hansen <lists@soem.dk>
Cc: emacs-pretest-bug@gnu.org, wohler@newt.com,
	Luc Teirlinck <teirllm@dms.auburn.edu>,
	rms@gnu.org, emacs-devel@gnu.org
Subject: Re: with-temp-buffer and undo
Date: Fri, 12 May 2006 19:47:35 +0200	[thread overview]
Message-ID: <4464CA37.3020208@soem.dk> (raw)
In-Reply-To: <87fyjftkim.fsf-monnier+emacs@gnu.org>

[-- Attachment #1: Type: text/plain, Size: 322 bytes --]

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?

[-- Attachment #2: with-temp-file.diff --]
[-- Type: text/x-patch, Size: 1498 bytes --]

*** 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))

  ;; ----------------------------------------------------------------------------

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel