[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-region-for-tlf-at-point): Use
	`(end-of-defun) (backward-sexp)' rather than
	`(end-of-defun) (beginning-of-defun' to go to the start of the
	current defun. The latter would fail on "() (a\nb\nc)".


--- /project/slime/cvsroot/slime/ChangeLog	2009/05/14 13:57:10	1.1749
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/14 14:41:47	1.1750
@@ -1,5 +1,12 @@
 2009-05-14  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime.el (slime-region-for-tlf-at-point): Use
+	`(end-of-defun) (backward-sexp)' rather than
+	`(end-of-defun) (beginning-of-defun' to go to the start of the
+	current defun. The latter would fail on "() (a\nb\nc)".
+
+2009-05-14  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime.el (slime-compute-region-for-font-lock): Fix typo.
 
 2009-05-13  Tobias C. Rittweiler  <tcr at freebits.de>
--- /project/slime/cvsroot/slime/slime.el	2009/05/14 13:57:10	1.1169
+++ /project/slime/cvsroot/slime/slime.el	2009/05/14 14:41:47	1.1170
@@ -6835,7 +6835,7 @@
                   (slime-search-backward-reader-conditional))
           (setq end (second (slime-region-for-tlf-at-point))))
         (values (or (/= beg orig-beg) (/= end orig-end)) beg end))
-    (error   ; unbalanced parentheses: cannot determine beginning/end of tlf.
+    (error ; unbalanced parentheses: cannot determine beginning/end of tlf.
      (values nil orig-beg orig-end))))
 
 ;;; FIXME: This is supposed to be the value for
@@ -7541,7 +7541,9 @@
       (setq lisp-mode-hook hook))))
 
 (def-slime-test font-lock-magic (buffer-content)
-    "foo"
+    "Some testing for the font-lock-magic. *YES* should be
+    highlighted as a suppressed form, *NO* should not."
+
     '(("(defun *NO* (x y) (+ x y))")
       ("(defun *NO*")
       ("\(
@@ -8458,7 +8460,7 @@
     (save-match-data
       ;; Position us at the beginning of the current defun.
       (end-of-defun) 
-      (beginning-of-defun)
+      (backward-sexp)
       (while (not (zerop (nth 0 (slime-current-parser-state))))
         ;; We go upwards, not downwards, to hopefully give the parser
         ;; state enough context to be accurate.