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

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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/progmodes/vera-mode.el b/lisp/progmodes/vera-mode.el
index b8c5850cf6a..4a046d953c8 100644
--- 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 2ff6f8f1315..e4de2380af0 100644
--- 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))