[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
slime.el(slime-parse-toplevel-form): Use
`slime-region-for-defun-at-point' instead of `beginning-of-defun'.


--- /project/slime/cvsroot/slime/ChangeLog	2009/12/03 15:41:05	1.1927
+++ /project/slime/cvsroot/slime/ChangeLog	2009/12/07 05:55:37	1.1928
@@ -1,3 +1,8 @@
+2009-12-07  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-parse-toplevel-form): Use
+	`slime-region-for-defun-at-point' instead of `beginning-of-defun'.
+
 2009-12-03  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* slime.el (slime-documentation-lookup-function): New hook,
--- /project/slime/cvsroot/slime/slime.el	2009/12/03 15:41:05	1.1254
+++ /project/slime/cvsroot/slime/slime.el	2009/12/07 05:55:37	1.1255
@@ -4406,7 +4406,7 @@
 (defun slime-parse-toplevel-form ()
   (ignore-errors                        ; (foo)
     (save-excursion
-      (beginning-of-defun)
+      (goto-char (car (slime-region-for-defun-at-point)))
       (down-list 1)
       (forward-sexp 1)
       (slime-parse-context (read (current-buffer))))))