[slime-cvs] CVS slime/contrib

[CVS User nsiivola]

Update of /project/slime/cvsroot/slime/contrib
In directory common-lisp.net:/tmp/cvs-serv2041/contrib

Modified Files:
	ChangeLog slime-cl-indent.el 
Log Message:
Use back-to-indentation instead of reinventing it.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/05/15 17:22:36	1.449
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/05/15 17:25:15	1.450
@@ -1,3 +1,8 @@
+2011-05-15  Didier Verna  <didier at xemacs.org>
+
+	* slime-cl-indent.el (lisp-indent-tagbody):
+	(lisp-indent-lambda-list): Use back-to-indentation.
+
 2011-05-14  Nikodemus Siivola  <nikodemus at solipsist>
 
 	* slime-cl-indent.el (common-lisp-indent-if*-keyword):
--- /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/05/15 17:22:36	1.15
+++ /project/slime/cvsroot/slime/contrib/slime-cl-indent.el	2011/05/15 17:25:15	1.16
@@ -435,8 +435,7 @@
   (let (limit)
     (cond ((save-excursion
              (goto-char indent-point)
-             (beginning-of-line)
-             (skip-chars-forward " \t")
+	     (back-to-indentation)
              (setq limit (point))
              (looking-at lisp-indent-lambda-list-keywords-regexp))
            ;; We're facing a lambda-list keyword.
@@ -596,8 +595,7 @@
       normal-indent
     (save-excursion
       (goto-char indent-point)
-      (beginning-of-line)
-      (skip-chars-forward " \t")
+      (back-to-indentation)
       (list (cond ((looking-at "\\sw\\|\\s_")
                    ;; a tagbody tag
                    (+ sexp-column lisp-tag-indentation))