* progmodes/vera-mode.el (vera-electric-tab):

* progmodes/vhdl-mode.el (vhdl-electric-tab): Make TAB indent
region when active.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7a67ae83a9da1e2c83c9566daf3d1ca17671834..c6ac44e3bfdaa2c2438f05867ba6b3458587ae93 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-08-06  Reto Zimmermann  <reto@gnu.org>
+
+       * progmodes/vera-mode.el (vera-electric-tab):
+       * progmodes/vhdl-mode.el (vhdl-electric-tab): Make TAB indent
+       region when active.
+
 2008-08-06  Kenichi Handa  <handa@m17n.org>
 
        * faces.el (face-valid-attribute-values): Fix handling the value

diff --git a/lisp/progmodes/vera-mode.el b/lisp/progmodes/vera-mode.el
index b8c5850cf6a08d90a0894bc4c48f2d29649e446c..4a046d953c8906bd58cae6fc55df0d75c903ee08 100644 (file)
--- a/lisp/progmodes/vera-mode.el
+++ b/lisp/progmodes/vera-mode.el
@@ -1261,7 +1261,9 @@ If `vera-intelligent-tab' is nil, always indent line."
   (interactive "*P")
   (if vera-intelligent-tab
       (progn
-       (cond ((memq (char-syntax (preceding-char)) '(?w ?_))
+       (cond ((and (not (featurep 'xemacs)) (use-region-p))
+              (vera-indent-region (region-beginning) (region-end) nil))
+             ((memq (char-syntax (preceding-char)) '(?w ?_))
               (let ((case-fold-search t)
                     (case-replace nil)
                     (hippie-expand-only-buffers

diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index 2ff6f8f1315f8fd19adf88a8c471bac37decd180..e4de2380af0313498a0412e5cf7b44f2f85213f3 100644 (file)
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -7004,6 +7004,9 @@ else indent `correctly'."
   (interactive "*P")
   (vhdl-prepare-search-2
    (cond
+    ;; indent region if region is active
+    ((and (not (featurep 'xemacs)) (use-region-p))
+     (vhdl-indent-region (region-beginning) (region-end) nil))
     ;; expand word
     ((= (char-syntax (preceding-char)) ?w)
      (let ((case-fold-search (not vhdl-word-completion-case-sensitive))