(indent-for-tab-command): Indent the region if

transient-mark-mode and the region is active.

3 files changed, 18 insertions, 3 deletions

diff --git a/etc/NEWS b/etc/NEWS
index a154234f6fa..323425e9823 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -110,6 +110,9 @@ file or directory.
 
 * Editing Changes in Emacs 23.1
 
+** TAB now indents the region if the region is active and
+`transient-mark-mode' is turned on.
+
 ** C-z now invokes `suspend-frame', C-x C-c now invokes
 `save-buffers-kill-terminal'.
 
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39c11d23041..858f9b39c18 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-22  Dan Nicolaescu  <dann@ics.uci.edu>
+
+        * indent.el (indent-for-tab-command): Indent the region if
+        transient-mark-mode and the region is active.
+
 2007-09-21  Francesco Potort,Al(B  <pot@gnu.org>
 
         * progmodes/octave-inf.el (inferior-octave-mode): Use add-hook to
diff --git a/lisp/indent.el b/lisp/indent.el
index b580e3aa3ce..2108b340f1b 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -78,11 +78,13 @@ special; we don't actually use them here."
     (funcall indent-line-function)))
 
 (defun indent-for-tab-command (&optional arg)
-  "Indent line in proper way for current major mode or insert a tab.
+  "Indent line or region in proper way for current major mode or insert a tab.
 Depending on `tab-always-indent', either insert a tab or indent.
 If initial point was within line's indentation, position after
 the indentation.  Else stay at same point in text.
-The function actually called to indent is determined by the value of
+If `transient-mark-mode' is turned on the region is active,
+indent the region.
+The function actually called to indent the line is determined by the value of
 `indent-line-function'."
   (interactive "P")
   (cond
@@ -97,7 +99,12 @@ The function actually called to indent is determined by the value of
    ;; indenting, so we can't pass them to indent-according-to-mode.
    ((memq indent-line-function '(indent-relative indent-relative-maybe))
     (funcall indent-line-function))
-   (t ;; The normal case.
+   ;; The region is active, indent it.
+   ((and transient-mark-mode mark-active
+         (not (eq (region-beginning) (region-end))))
+    (indent-region (region-beginning) (region-end)))
+   ;; Indent the line.
+   (t
     (indent-according-to-mode))))
 
 (defun insert-tab (&optional arg)