After inserting newlines, reindent the following expression only if it

starts on the same line as the point is now on.

diff --git a/v7/src/edwin/paredit.scm b/v7/src/edwin/paredit.scm
index 91b4379b265592e02d6522602f0e7384bb4c3429..6e8c1e03ab3795151aad3c73bee29cedfecc03be 100644 (file)
--- a/v7/src/edwin/paredit.scm
+++ b/v7/src/edwin/paredit.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: paredit.scm,v 1.8 2006/12/28 22:28:20 riastradh Exp $
+$Id: paredit.scm,v 1.9 2007/02/23 11:37:09 riastradh Exp $
 
 This code is written by Taylor R. Campbell and placed in the Public
 Domain.  All warranties are disclaimed.
@@ -847,7 +847,11 @@ Both must be lists, strings, or atoms; error if there is mismatch."
 (define (lisp-indent-line-and-sexp)
   (lisp-indent-line #f)
   (let ((point (current-point)))
-    (if (forward-one-sexp point)
+    (if (cond ((forward-one-sexp point)
+               => (lambda (end)
+                    (mark= (line-start (backward-one-sexp end) 0)
+                           (line-start point 0))))
+              (else #f))
         (lisp-indent-sexp point))))
 
 ;;; In paredit.el, the ABSOLUTELY? argument determined whether or not