[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el 
Log Message:
* slime.el (slime-reindent-defun): Fixed when used in lisp file
  buffers. (Similiar patch also provided by Gábor Melis; problem
  also reported by Jeff Cunningham.)


--- /project/slime/cvsroot/slime/slime.el	2007/08/30 23:09:33	1.838
+++ /project/slime/cvsroot/slime/slime.el	2007/08/30 23:43:41	1.839
@@ -8737,13 +8737,14 @@
         (fill-paragraph nil)
       (let ((start (progn (unless (or (and (zerop (current-column))
                                            (eq ?\( (char-after)))
-                                      (slime-repl-at-prompt-start-p))
+                                      (and slime-repl-input-start-mark
+                                           (slime-repl-at-prompt-start-p)))
                             (slime-beginning-of-defun))
                           (point)))
             (end (ignore-errors (slime-end-of-defun) (point))))
         (unless end
           (forward-paragraph)
-          (slime-close-all-sexp)
+          (slime-close-all-parens-in-sexp)
           (slime-end-of-defun)
           (setf end (point)))
         (indent-region start end nil)))))