# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1218031554 0
# Node ID 541ff411cf6f8ebb65023fe4d436ac54bbf51fe3
# Parent  21071147464afe3e7ef0425aa5301941d43b0c95
* progmodes/vera-mode.el (vera-electric-tab):
* progmodes/vhdl-mode.el (vhdl-electric-tab): Make TAB indent
region when active.

diff -r 21071147464a -r 541ff411cf6f lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Aug 06 12:20:28 2008 +0000
+++ b/lisp/ChangeLog	Wed Aug 06 14:05:54 2008 +0000
@@ -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 -r 21071147464a -r 541ff411cf6f lisp/progmodes/vera-mode.el
--- a/lisp/progmodes/vera-mode.el	Wed Aug 06 12:20:28 2008 +0000
+++ b/lisp/progmodes/vera-mode.el	Wed Aug 06 14:05:54 2008 +0000
@@ -1261,7 +1261,9 @@
   (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 -r 21071147464a -r 541ff411cf6f lisp/progmodes/vhdl-mode.el
--- a/lisp/progmodes/vhdl-mode.el	Wed Aug 06 12:20:28 2008 +0000
+++ b/lisp/progmodes/vhdl-mode.el	Wed Aug 06 14:05:54 2008 +0000
@@ -7004,6 +7004,9 @@
   (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))