(indent-to (car tabs)))
(insert ?\ ))))
-(defun move-to-tab-stop ()
- "Move point to next defined tab-stop column.
-The variable `tab-stop-list' is a list of columns at which there are tab stops.
-Use \\[edit-tab-stops] to edit them interactively."
- (interactive)
- (let ((tabs tab-stop-list))
- (while (and tabs (>= (current-column) (car tabs)))
- (setq tabs (cdr tabs)))
- (if tabs
- (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)))))
-
(defun move-to-tab-stop ()
"Move point to next defined tab-stop column.
The variable `tab-stop-list' is a list of columns at which there are tab stops.