Mercurial > emacs
changeset 97329:541ff411cf6f
* progmodes/vera-mode.el (vera-electric-tab):
* progmodes/vhdl-mode.el (vhdl-electric-tab): Make TAB indent
region when active.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 06 Aug 2008 14:05:54 +0000 |
| parents | 21071147464a |
| children | a271219c6580 |
| files | lisp/ChangeLog lisp/progmodes/vera-mode.el lisp/progmodes/vhdl-mode.el |
| diffstat | 3 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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
--- 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))