diff options
| author | Richard M. Stallman | 1994-07-12 00:41:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-12 00:41:10 +0000 |
| commit | dcb8f03d8d30311a6b05585a772ae01bdeffce60 (patch) | |
| tree | 594d5efd3152642d25a191c1fec80c1c02d0b78f | |
| parent | 727d277d52e653024f2bfcf5ef88200814db785e (diff) | |
| download | emacs-dcb8f03d8d30311a6b05585a772ae01bdeffce60.tar.gz emacs-dcb8f03d8d30311a6b05585a772ae01bdeffce60.zip | |
(move-to-tab-stop): Delete spurious multiple definition.
| -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." | |||
| 253 | (while (and tabs (>= (current-column) (car tabs))) | 253 | (while (and tabs (>= (current-column) (car tabs))) |
| 254 | (setq tabs (cdr tabs))) | 254 | (setq tabs (cdr tabs))) |
| 255 | (if tabs | 255 | (if tabs |
| 256 | (progn | ||
| 257 | (if (eq last-command 'move-to-tab-stop) | ||
| 258 | (let ((opoint (point))) | ||
| 259 | (skip-chars-backward " \t") | ||
| 260 | (delete-region (point) opoint))) | ||
| 261 | (move-to-column (car tabs) t))))) | ||
| 262 | |||
| 263 | (defun move-to-tab-stop () | ||
| 264 | "Move point to next defined tab-stop column. | ||
| 265 | The variable `tab-stop-list' is a list of columns at which there are tab stops. | ||
| 266 | Use \\[edit-tab-stops] to edit them interactively." | ||
| 267 | (interactive) | ||
| 268 | (let ((tabs tab-stop-list)) | ||
| 269 | (while (and tabs (>= (current-column) (car tabs))) | ||
| 270 | (setq tabs (cdr tabs))) | ||
| 271 | (if tabs | ||
| 272 | (let ((before (point))) | 256 | (let ((before (point))) |
| 273 | (move-to-column (car tabs) t) | 257 | (move-to-column (car tabs) t) |
| 274 | (save-excursion | 258 | (save-excursion |