[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv23586

Modified Files:
	slime.el 
Log Message:
(match-string-no-properties): Define it for XEmacs compatibility.


--- /project/slime/cvsroot/slime/slime.el	2006/12/05 12:58:41	1.694
+++ /project/slime/cvsroot/slime/slime.el	2006/12/05 13:06:37	1.695
@@ -10848,6 +10848,14 @@
     (set-text-properties 0 (- end start) nil string)
     string))
 
+(slime-defun-if-undefined match-string-no-properties (num &optional string)
+  (if (match-beginning num)
+      (if string
+	  (substring-no-properties string (match-beginning num)
+				   (match-end num))
+	(substring-no-properties (match-beginning num)
+                                 (match-end num)))))
+
 (slime-defun-if-undefined set-window-text-height (window height)
   (let ((delta (- height (window-text-height window))))
     (unless (zerop delta)