[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv8839

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-sexp-at-point-for-macroexpansion): use markers
for bounds, because in some situations text layout could be modified
before bounds would be used, for example, using keyboard macros.


--- /project/slime/cvsroot/slime/ChangeLog	2009/07/15 20:34:09	1.1812
+++ /project/slime/cvsroot/slime/ChangeLog	2009/07/21 18:34:54	1.1813
@@ -1,3 +1,9 @@
+2009-07-21  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-sexp-at-point-for-macroexpansion): use markers
+	for bounds, because in some situations text layout could be modified
+	before bounds would be used, for example, using keyboard macros.
+
 2009-07-15  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-inspector-fetch-all): new command, bound to >
--- /project/slime/cvsroot/slime/slime.el	2009/07/15 20:37:58	1.1199
+++ /project/slime/cvsroot/slime/slime.el	2009/07/21 18:34:54	1.1200
@@ -5057,7 +5057,8 @@
         (when (member char0 '(?\' ?\, ?\" ?\@))
           (setf string (substring string 1))
           (incf (car bounds)))))
-    (list string bounds)))
+    (list string (cons (set-marker (make-marker) (car bounds))
+                       (set-marker (make-marker) (cdr bounds))))))
 
 (defvar slime-eval-macroexpand-expression nil
   "Specifies the last macroexpansion preformed.