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))
;; ----------------------------------------------------------------------------
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
