[slime-cvs] CVS slime

[mbaringer]

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

Modified Files:
	slime.el 
Log Message:
(slime-region-for-defun-at-point): end-of-defun and
beginning-of-defun modify match-data, so we should save it.


--- /project/slime/cvsroot/slime/slime.el	2006/12/14 16:13:10	1.707
+++ /project/slime/cvsroot/slime/slime.el	2006/12/18 16:44:21	1.708
@@ -10674,10 +10674,11 @@
 (defun slime-region-for-defun-at-point ()
   "Return the start and end position of the toplevel form at point."
   (save-excursion
-    (end-of-defun)
-    (let ((end (point)))
-      (beginning-of-defun)
-      (list (point) end))))
+    (save-match-data
+      (end-of-defun)
+      (let ((end (point)))
+        (beginning-of-defun)
+        (list (point) end)))))
 
 (defun slime-beginning-of-symbol ()
   "Move point to the beginning of the current symbol."