mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-23 22:42:01 -07:00
Code Issues 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.