[slime-cvs] CVS slime

[trittweiler]

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

Modified Files:
	slime.el 
Log Message:
Fixing `C-c M-q' at the REPL. Thanks to André Thieme for pointing
out that it has been broken since several months.
	
* slime.el (slime-reindent-defun): Use functions
  `slime-beginning-of-defun' and `slime-end-of-defun' that were
  introduced in the last changeset.


--- /project/slime/cvsroot/slime/slime.el	2007/06/16 11:36:35	1.791
+++ /project/slime/cvsroot/slime/slime.el	2007/06/27 15:52:57	1.792
@@ -10039,16 +10039,13 @@
         (fill-paragraph nil)
       (let ((start (progn (unless (and (zerop (current-column))
                                        (eq ?\( (char-after)))
-                            (if (and (boundp 'slime-repl-input-start-mark)
-                                     slime-repl-input-start-mark)
-                                (slime-repl-beginning-of-defun)
-                              (beginning-of-defun)))
+                            (slime-beginning-of-defun))
                           (point)))
-            (end (ignore-errors (end-of-defun) (point))))
+            (end (ignore-errors (slime-end-of-defun) (point))))
         (unless end
           (forward-paragraph)
           (slime-close-all-sexp)
-          (end-of-defun)
+          (slime-end-of-defun)
           (setf end (point)))
         (indent-region start end nil)))))