Mercurial > emacs

comparison lisp/indent.el @ 7973:b7ea350590a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tab-to-tab-stop): Combine new indentation with previous.
author Richard M. Stallman <rms@gnu.org>
date Mon, 20 Jun 1994 01:52:51 +0000
parents 1fa576a274b5
children bc835acd2ade
comparison
equal deleted inserted replaced
7972:f2c73ebe4013 7973:b7ea350590a7
236 (if abbrev-mode (expand-abbrev)) 236 (if abbrev-mode (expand-abbrev))
237 (let ((tabs tab-stop-list)) 237 (let ((tabs tab-stop-list))
238 (while (and tabs (>= (current-column) (car tabs))) 238 (while (and tabs (>= (current-column) (car tabs)))
239 (setq tabs (cdr tabs))) 239 (setq tabs (cdr tabs)))
240 (if tabs 240 (if tabs
241 (indent-to (car tabs)) 241 (let ((opoint (point)))
242 (skip-chars-backward " \t")
243 (delete-region (point) opoint)
244 (indent-to (car tabs)))
242 (insert ?\ )))) 245 (insert ?\ ))))
243 246
244 (defun move-to-tab-stop () 247 (defun move-to-tab-stop ()
245 "Move point to next defined tab-stop column. 248 "Move point to next defined tab-stop column.
246 The variable `tab-stop-list' is a list of columns at which there are tab stops. 249 The variable `tab-stop-list' is a list of columns at which there are tab stops.