diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-12 00:41:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-12 00:41:10 +0000 |
| commit | f8ab1f9180e1aa499b7631585c140400178c6a10 (patch) | |
| tree | 17cfa2855221e3237c1ab7df92ec3595ac8b1afe /lisp | |
| parent | 40be48ef1e6ed39b7d189d3e5d588fc3f667554d (diff) | |
| download | emacs-f8ab1f9180e1aa499b7631585c140400178c6a10.tar.gz | |
(move-to-tab-stop): Delete spurious multiple definition.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/indent.el | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index ef63db81932..f869b175f75 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -253,22 +253,6 @@ Use \\[edit-tab-stops] to edit them interactively." (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. -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 (let ((before (point))) (move-to-column (car tabs) t) (save-excursion |