[slime-cvs] CVS update: slime/slime.el

[Matthias Koeppe]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv11392

Modified Files:
	slime.el 
Log Message:
(undo-in-progress): Define for XEmacs compatibility.
Reported by Friedrich Dominicus.

Date: Mon Aug  8 18:31:47 2005
Author: mkoeppe

Index: slime/slime.el
diff -u slime/slime.el:1.518 slime/slime.el:1.519
--- slime/slime.el:1.518	Sun Aug  7 18:53:31 2005
+++ slime/slime.el	Mon Aug  8 18:31:47 2005
@@ -2869,6 +2869,14 @@
               (and good-start good-end
                    (slime-presentation-whole-p start end))))))
 
+;; XEmacs compatibility hack, from message by Stephen J. Turnbull on
+;; xemacs-beta at xemacs.org of 18 Mar 2002
+(unless (boundp 'undo-in-progress)
+  (defvar undo-in-progress nil
+   "Placeholder defvar for XEmacs compatibility from SLIME.")
+  (defadvice undo-more (around slime activate)
+     (let ((undo-in-progress t)) ad-do-it)))
+
 (defun slime-after-change-function (start end old-len)
   "Check all presentations within and adjacent to the change.  When a
   presentation has been altered, change it to plain text."