martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(move-to-tab-stop): Delete spurious multiple definition.

Browse Source
This commit is contained in:
Richard M. Stallman
1994-07-12 00:41:10 +00:00
parent 727d277d52
commit dcb8f03d8d
1 changed files with 0 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/indent.el
View File

@@ -244,22 +244,6 @@ Use \\[edit-tab-stops] to edit them interactively."
(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.