From: morioka <morioka>
Date: Tue, 27 Oct 1998 08:44:13 +0000 (+0000)
Subject: (cancel-undo-boundary): New function.
X-Git-Tag: apel-9_8~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=97a78fafe356cb7e6eaafffec9a16694be0118f5;p=elisp%2Fapel.git

(cancel-undo-boundary): New function.
---

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
 ;;;