diff src/indent.c @ 573:f0ffd1764382

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Thu, 12 Mar 1992 03:48:12 +0000
parents 937bccff8155
children 0085dcbad4bd
line wrap: on
line diff
--- a/src/indent.c	Tue Mar 10 22:16:10 1992 +0000
+++ b/src/indent.c	Thu Mar 12 03:48:12 1992 +0000
@@ -1,5 +1,5 @@
 /* Indentation functions.
-   Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1987, 1988, 1992 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -344,10 +344,13 @@
      and scan through it again.  */
   if (!NILP (force) && col > goal && c == '\t' && prev_col < goal)
     {
+      int old_point;
+
       del_range (point - 1, point);
-      Findent_to (make_number (col - 1));
-      insert_char (' ');
-      goto retry;
+      Findent_to (make_number (goal), Qnil);
+      old_point = point;
+      Findent_to (make_number (col), Qnil);
+      SET_PT (old_point);
     }
 
   /* If line ends prematurely, add space to the end.  */