From 34a71c1e6dbe80a6a3339396668a0b4ca3b6da7d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 14 Sep 1995 14:45:02 +0000 Subject: [PATCH] (indent-for-tab-command): Get the prefix arg and pass it along to indent-line-function if it isn't nil. --- lisp/indent.el | 8 +++++--- 1 file 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 -- 2.39.2