Re: undo bug?

[martin rudalics]

> (defun x3 ()
>   (interactive)
>   (delete-backward-char 3)
>   (setq buffer-undo-list nil)
>   (insert "A")
>   (message "%s" buffer-undo-list))

Can you please test with (CVS) Emacs 23 whether

(defun x3 ()
  (interactive)
  (let ((undo-inhibit-record-point t))
    (delete-backward-char 3)
    (setq buffer-undo-list nil)
    (insert "A")
    (message "%s" buffer-undo-list)))

does what you want here?  If it solves your problem then we probably
should consider a solution like the one I sketched in

http://lists.gnu.org/archive/html/bug-gnu-emacs/2008-03/msg00096.html