(indent-for-tab-command): Get the prefix arg

and pass it along to indent-line-function if it isn't nil.

diff --git a/lisp/indent.el b/lisp/indent.el
index dd2f95771bf9b016ada4a6d7e1ea06cf9c9fca0d..47ef23d4aa371c9accb303dbe39b939a96dc7da0 100644 (file)
--- 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