diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-03-12 03:48:12 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-03-12 03:48:12 +0000 |
| commit | 70ee42f75d671390dfd0c33243e5e93b8fb9570d (patch) | |
| tree | 976460bc28da3cda85639757cae7612f2f4e21b9 /src/indent.c | |
| parent | 03759fe00303a19cff5ce1cd1d6408c97ce2c929 (diff) | |
| download | emacs-70ee42f75d671390dfd0c33243e5e93b8fb9570d.tar.gz | |
*** empty log message ***
Diffstat (limited to 'src/indent.c')
| -rw-r--r-- | src/indent.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/indent.c b/src/indent.c index f87ca13192a..977383d3b40 100644 --- a/src/indent.c +++ b/src/indent.c @@ -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 if COLUMN is in the middle of a tab character, change it to spaces.") 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. */ |