[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-current-form-path): Use
	`slime-current-parser-state'.


--- /project/slime/cvsroot/slime/ChangeLog	2009/02/26 18:29:58	1.1688
+++ /project/slime/cvsroot/slime/ChangeLog	2009/02/26 18:37:21	1.1689
@@ -1,5 +1,10 @@
 2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (slime-current-form-path): Use
+	`slime-current-parser-state'.
+
+2009-02-26  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime.el ([test] fancy-symbol-names): New, hopefully
 	comprehensive, test for funky symbol names.
 	(slime-check-fancy-symbol-name): Helper.
--- /project/slime/cvsroot/slime/slime.el	2009/02/26 18:29:58	1.1128
+++ /project/slime/cvsroot/slime/slime.el	2009/02/26 18:37:21	1.1129
@@ -3102,7 +3102,7 @@
     (save-excursion
       ;; Moving forward to get reader conditionals right.
       (loop for inner-pos = (point)
-            for outer-pos = (nth-value 1 (syntax-ppss))
+            for outer-pos = (nth-value 1 (slime-current-parser-state))
             while outer-pos do
             (goto-char outer-pos)
             (unless (eq (char-before) ?#) ; when at #(...) continue.