Mercurial > emacs
changeset 15106:83b8438fa1a4
(indent-for-tab-command): Pass prefix arg to indent-tab.
(insert-tab): Handle prefix arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 28 Apr 1996 23:41:52 +0000 |
| parents | 328889a58f6d |
| children | e025990722ca |
| files | lisp/indent.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Sun Apr 28 23:37:04 1996 +0000 +++ b/lisp/indent.el Sun Apr 28 23:41:52 1996 +0000 @@ -43,17 +43,18 @@ "Indent line in proper way for current major mode." (interactive "P") (if (eq indent-line-function 'indent-to-left-margin) - (insert-tab) + (insert-tab prefix-arg) (if prefix-arg (funcall indent-line-function prefix-arg) (funcall indent-line-function)))) -(defun insert-tab () - (if abbrev-mode - (expand-abbrev)) - (if indent-tabs-mode - (insert ?\t) - (indent-to (* tab-width (1+ (/ (current-column) tab-width)))))) +(defun insert-tab (&optional prefix-arg) + (let ((count (prefix-numeric-value prefix-arg))) + (if abbrev-mode + (expand-abbrev)) + (if indent-tabs-mode + (insert ?\t count) + (indent-to (* tab-width (+ count (/ (current-column) tab-width))))))) (defun indent-rigidly (start end arg) "Indent all lines starting in the region sideways by ARG columns.