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 | 700f8e148f4a7ee299b5499136a882e20d93a129 (patch) | |
| tree | b4bab444a716c222b8dc22fb16fefd9d0ba95b74 /lisp/indent.el | |
| parent | 47e699159cbaac33e7c5f9644d99b4a6a74fb1a5 (diff) | |
| download | emacs-700f8e148f4a7ee299b5499136a882e20d93a129.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 |