From 4d5f28b09f4975d47dcd69986a3b2a1beb4b9f8e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Mar 1996 07:49:50 +0000
Subject: [PATCH] Doing M-x reindent-then-newline-and-indent on a blank line
 would reindent that line and create a new indented line below it, leaving
 indentation in the original line.  The fix eliminates this unnecessary
 indentation; the original line is empty after the command.

---
 v7/src/edwin/lincom.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/lincom.scm b/v7/src/edwin/lincom.scm
index 83fba9443..2b90f7146 100644
--- a/v7/src/edwin/lincom.scm
+++ b/v7/src/edwin/lincom.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: lincom.scm,v 1.121 1995/01/06 01:08:00 cph Exp $
+;;;	$Id: lincom.scm,v 1.122 1996/03/01 07:49:50 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -261,10 +261,8 @@ specified left-margin column."
 and indent the new line indent according to mode."
   ()
   (lambda ()
-    (delete-horizontal-space)
     ((ref-command indent-according-to-mode))
-    (insert-newline)
-    ((ref-command indent-according-to-mode))))
+    ((ref-command newline-and-indent))))
 
 (define-variable-per-buffer indent-tabs-mode
   "If false, do not use tabs for indentation or horizontal spacing."
-- 
2.25.1