From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 1 Mar 1996 07:49:50 +0000 (+0000)
Subject: Doing M-x reindent-then-newline-and-indent on a blank line would
X-Git-Tag: 20090517-FFI~5685
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4d5f28b09f4975d47dcd69986a3b2a1beb4b9f8e;p=mit-scheme.git

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.
---

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."