diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-09-14 14:45:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-09-14 14:45:02 +0000 |
| commit | 34a71c1e6dbe80a6a3339396668a0b4ca3b6da7d (patch) | |
| tree | 40fa3be1336c24a3ce674a74657dbde8e6e1fef8 /lisp/indent.el | |
| parent | 719dcee97be039c172f09635de2392cdf8834200 (diff) | |
| download | emacs-34a71c1e6dbe80a6a3339396668a0b4ca3b6da7d.tar.gz | |
(indent-for-tab-command): Get the prefix arg
and pass it along to indent-line-function if it isn't nil.
Diffstat (limited to 'lisp/indent.el')
| -rw-r--r-- | lisp/indent.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index dd2f95771bf..47ef23d4aa3 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -38,12 +38,14 @@ Function to indent current line.") (interactive) (funcall indent-line-function)) -(defun indent-for-tab-command () +(defun indent-for-tab-command (&optional prefix-arg) "Indent line in proper way for current major mode." - (interactive) + (interactive "P") (if (eq indent-line-function 'indent-to-left-margin) (insert-tab) - (funcall indent-line-function))) + (if prefix-arg + (funcall indent-line-function prefix-arg) + (funcall indent-line-function)))) (defun insert-tab () (if abbrev-mode |