aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-07-12 00:41:10 +0000
committerRichard M. Stallman1994-07-12 00:41:10 +0000
commitdcb8f03d8d30311a6b05585a772ae01bdeffce60 (patch)
tree594d5efd3152642d25a191c1fec80c1c02d0b78f
parent727d277d52e653024f2bfcf5ef88200814db785e (diff)
downloademacs-dcb8f03d8d30311a6b05585a772ae01bdeffce60.tar.gz
emacs-dcb8f03d8d30311a6b05585a772ae01bdeffce60.zip
(move-to-tab-stop): Delete spurious multiple definition.
-rw-r--r--lisp/indent.el16
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.
265The variable `tab-stop-list' is a list of columns at which there are tab stops.
266Use \\[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