Mercurial > emacs
changeset 7973:b7ea350590a7
(tab-to-tab-stop): Combine new indentation with previous.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 20 Jun 1994 01:52:51 +0000 |
| parents | f2c73ebe4013 |
| children | de3b4f95a9db |
| files | lisp/indent.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Mon Jun 20 01:39:02 1994 +0000 +++ b/lisp/indent.el Mon Jun 20 01:52:51 1994 +0000 @@ -238,7 +238,10 @@ (while (and tabs (>= (current-column) (car tabs))) (setq tabs (cdr tabs))) (if tabs - (indent-to (car tabs)) + (let ((opoint (point))) + (skip-chars-backward " \t") + (delete-region (point) opoint) + (indent-to (car tabs))) (insert ?\ )))) (defun move-to-tab-stop ()