Mercurial > emacs
changeset 7984:bc835acd2ade
(move-to-tab-stop): Get rid of spaces before tabs
that were made by an immediately previous use of this command.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 20 Jun 1994 22:52:49 +0000 |
| parents | c8cc0e969eaa |
| children | f6c309d5d314 |
| files | lisp/indent.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Mon Jun 20 22:22:58 1994 +0000 +++ b/lisp/indent.el Mon Jun 20 22:52:49 1994 +0000 @@ -253,7 +253,12 @@ (while (and tabs (>= (current-column) (car tabs))) (setq tabs (cdr tabs))) (if tabs - (move-to-column (car tabs) t)))) + (progn + (if (eq last-command 'move-to-tab-stop) + (let ((opoint (point))) + (skip-chars-backward " \t") + (delete-region (point) opoint))) + (move-to-column (car tabs) t))))) (define-key global-map "\t" 'indent-for-tab-command) (define-key esc-map "\034" 'indent-region)