[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: with-temp-buffer and undo
From: |
Lars Hansen |
Subject: |
Re: with-temp-buffer and undo |
Date: |
Fri, 12 May 2006 19:47:35 +0200 |
User-agent: |
Debian Thunderbird 1.0.2 (X11/20060423) |
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))
;;
----------------------------------------------------------------------------