From 745a947086dc93d28b7a797d6f0119bd0e1cdcc9 Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Fri, 23 Feb 2007 11:37:09 +0000
Subject: [PATCH] After inserting newlines, reindent the following expression
 only if it starts on the same line as the point is now on.

---
 v7/src/edwin/paredit.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/paredit.scm b/v7/src/edwin/paredit.scm
index 91b4379b2..6e8c1e03a 100644
--- 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
-- 
2.25.1