Mercurial > emacs
comparison lisp/indent.el @ 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 | 1fa576a274b5 |
children | bc835acd2ade |
comparison
equal
deleted
inserted
replaced
7972:f2c73ebe4013 | 7973:b7ea350590a7 |
---|---|
236 (if abbrev-mode (expand-abbrev)) | 236 (if abbrev-mode (expand-abbrev)) |
237 (let ((tabs tab-stop-list)) | 237 (let ((tabs tab-stop-list)) |
238 (while (and tabs (>= (current-column) (car tabs))) | 238 (while (and tabs (>= (current-column) (car tabs))) |
239 (setq tabs (cdr tabs))) | 239 (setq tabs (cdr tabs))) |
240 (if tabs | 240 (if tabs |
241 (indent-to (car tabs)) | 241 (let ((opoint (point))) |
242 (skip-chars-backward " \t") | |
243 (delete-region (point) opoint) | |
244 (indent-to (car tabs))) | |
242 (insert ?\ )))) | 245 (insert ?\ )))) |
243 | 246 |
244 (defun move-to-tab-stop () | 247 (defun move-to-tab-stop () |
245 "Move point to next defined tab-stop column. | 248 "Move point to next defined tab-stop column. |
246 The variable `tab-stop-list' is a list of columns at which there are tab stops. | 249 The variable `tab-stop-list' is a list of columns at which there are tab stops. |