[xyzzy:04357] undo について

[YAMAMOTO Taizo <ymtz@xxxxxxxxxxxxxxx>]

やまもとたいぞう%ymtzです。

(delete-region
 (progn (goto-bol) (point))
 (progn (goto-eol) (point))))
...
(undo)

とか行う場合に、(undo)の直後にポイントも元の位置に
戻って欲しいのですが、実際にはそうならないです。
今は仕方なく以下のようにしています。

(progn
  (insert "*")
  (delete-backward-char)
  (delete-region
   (progn (goto-bol) (point))
   (progn (goto-eol) (point)))))
...
(undo)

もっとスマートな方法はないでしょうか？

ちなみに、html+-modeを20000326にバージョンを上げました。
＃多分、引っ越し祝い(?)バージョンです。

----
    YAMAMOTO Taizo / 山本 泰三
        mailto:ymtz@xxxxxxxxxxxxxxx
        mailto:yamamoto@xxxxxxxxx
        http://www1.odn.ne.jp/ymtz/