From: Dan Nicolaescu Date: Wed, 6 Aug 2008 14:05:54 +0000 (+0000) Subject: * progmodes/vera-mode.el (vera-electric-tab): X-Git-Tag: emacs-pretest-23.0.90~3604 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75e0af775148aaaadf8f402fc469934cbf58ac64;p=emacs.git * 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 f7a67ae83a9..c6ac44e3bfd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-08-06 Reto Zimmermann + + * 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 * 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 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))