Mercurial > emacs

comparison lisp/indent.el @ 15113:8db176b73c9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(insert-tab): fix previous change
author Erik Naggum <erik@naggum.no>
date Mon, 29 Apr 1996 18:12:08 +0000
parents 83b8438fa1a4
children d8e2f7cfb2b7
comparison
equal deleted inserted replaced
15112:e850ebd317e6 15113:8db176b73c9f
51 (defun insert-tab (&optional prefix-arg) 51 (defun insert-tab (&optional prefix-arg)
52 (let ((count (prefix-numeric-value prefix-arg))) 52 (let ((count (prefix-numeric-value prefix-arg)))
53 (if abbrev-mode 53 (if abbrev-mode
54 (expand-abbrev)) 54 (expand-abbrev))
55 (if indent-tabs-mode 55 (if indent-tabs-mode
56 (insert ?\t count) 56 (insert-char ?\t count)
57 (indent-to (* tab-width (+ count (/ (current-column) tab-width))))))) 57 (indent-to (* tab-width (+ count (/ (current-column) tab-width)))))))
58 58
59 (defun indent-rigidly (start end arg) 59 (defun indent-rigidly (start end arg)
60 "Indent all lines starting in the region sideways by ARG columns. 60 "Indent all lines starting in the region sideways by ARG columns.
61 Called from a program, takes three arguments, START, END and ARG." 61 Called from a program, takes three arguments, START, END and ARG."