[slime-cvs] CVS slime/contrib

[trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory clnet:/tmp/cvs-serv30245/contrib

Modified Files:
	slime-editing-commands.el 
Log Message:

* slime-editing-commands.el (slime-close-all-parens-in-sexp): Use
  new portability function `slime-delete-and-extract-region'.


--- /project/slime/cvsroot/slime/contrib/slime-editing-commands.el	2007/09/20 14:55:53	1.5
+++ /project/slime/cvsroot/slime/contrib/slime-editing-commands.el	2008/01/10 15:32:08	1.6
@@ -69,7 +69,7 @@
         (setq point (point))
         ;; count sexps until either '(' or comment is found at first column
         (while (and (not (looking-at "^[(;]"))
-                  (ignore-errors (backward-up-list 1) t))
+		    (ignore-errors (backward-up-list 1) t))
           (incf sexp-level))))
     (when (> sexp-level 0)
       ;; insert correct number of right parens
@@ -79,7 +79,7 @@
       (setq point (point))
       (skip-chars-forward " \t\n)")
       (skip-chars-backward " \t\n")
-      (let* ((deleted-region     (delete-and-extract-region point (point)))
+      (let* ((deleted-region     (slime-delete-and-extract-region point (point)))
              (deleted-text       (substring-no-properties deleted-region))
              (prior-parens-count (count ?\) deleted-text)))
         ;; Remember: we always insert as many parentheses as necessary