From 97a78fafe356cb7e6eaafffec9a16694be0118f5 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 27 Oct 1998 08:44:13 +0000 Subject: [PATCH] (cancel-undo-boundary): New function. --- poe.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/poe.el b/poe.el index 1f19956..bd34bf3 100644 --- a/poe.el +++ b/poe.el @@ -471,6 +471,18 @@ as obsolete. [XEmacs emulating function]" ) +;;; @ MULE 2 emulation +;;; + +(defun-maybe cancel-undo-boundary () + "Cancel undo boundary. [MULE 2.3 emulating function]" + (if (and (consp buffer-undo-list) + ;; if car is nil. + (null (car buffer-undo-list)) ) + (setq buffer-undo-list (cdr buffer-undo-list)) + )) + + ;;; @ end ;;; -- 1.7.10.4