* progmodes/cc-mode.el (c-mode-base-map): Use

c-indent-line-or-region instead of c-indent-line.

* indent.el (indent-for-tab-command): First check if the region is
active.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2d80dc06441ad632504bbed0344217cdeac69e1..c9875cfdcca7c84a1254f2aaa5b906837dc28aef 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2007-09-24  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * progmodes/cc-mode.el (c-mode-base-map): Use
+       c-indent-line-or-region instead of c-indent-line.
+
+       * indent.el (indent-for-tab-command): First check if the region is
+       active.
+
 2007-09-24  Micha\e,Ak\e(Bl Cadilhac  <michael@cadilhac.name>
 
        * whitespace.el (whitespace-tickle-timer): Don't install the timer if

diff --git a/lisp/indent.el b/lisp/indent.el
index 2108b340f1bd24bf73ca2d011cd8f85263557cfa..db8958bd1ca5faae9fabe82aa87679360f127540 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -88,6 +88,10 @@ The function actually called to indent the line is determined by the value of
 `indent-line-function'."
   (interactive "P")
   (cond
+   ;; The region is active, indent it.
+   ((and transient-mark-mode mark-active
+        (not (eq (region-beginning) (region-end))))
+    (indent-region (region-beginning) (region-end)))
    ((or ;; indent-to-left-margin is only meant for indenting,
        ;; so we force it to always insert a tab here.
        (eq indent-line-function 'indent-to-left-margin)
@@ -99,10 +103,6 @@ The function actually called to indent the line 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))
-   ;; 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))))

diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index 8669a41c2f03970d4c3e5e6f3820f35735af9123..f234404e81df2d848d70fba325e9464d2af641d5 100644 (file)
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -269,7 +269,9 @@ control).  See \"cc-mode.el\" for more info."
                             'c-indent-new-comment-line
                             c-mode-base-map global-map)
   (substitute-key-definition 'indent-for-tab-command
-                            'c-indent-command
+                            ;; XXX Is this the right thing to do
+                            ;; here?
+                            'c-indent-line-or-region
                             c-mode-base-map global-map)
   (when (fboundp 'comment-indent-new-line)
     ;; indent-new-comment-line has changed name to