# HG changeset patch # User Richard M. Stallman # Date 773973670 0 # Node ID 7ad755e38ee3191946a006751c0b7fca8802be41 # Parent 96e6518c209bff5814c2dade45e72bd8e53480b9 (move-to-tab-stop): Delete spurious multiple definition. diff -r 96e6518c209b -r 7ad755e38ee3 lisp/indent.el --- a/lisp/indent.el Tue Jul 12 00:35:27 1994 +0000 +++ b/lisp/indent.el Tue Jul 12 00:41:10 1994 +0000 @@ -253,22 +253,6 @@ (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