procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* progmodes/vhdl-mode.el (vhdl-electric-tab): Make TAB indent
region when active.
This commit is contained in:
Dan Nicolaescu 2008-08-06 14:05:54 +00:00
parent 29428bb856
commit 75e0af7751
3 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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

4
lisp/progmodes/vera-mode.el
View file

@ -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

3
lisp/progmodes/vhdl-mode.el
View file

@ -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))