Enable the (up|down)case-region command
This commit is contained in:
parent
a33c173a64
commit
239c8e6505
4
init.el
4
init.el
@ -312,10 +312,12 @@ Version 2016-02-16"
|
|||||||
((looking-at "[[:upper:]]") (downcase-region (point) (1+ (point)))))
|
((looking-at "[[:upper:]]") (downcase-region (point) (1+ (point)))))
|
||||||
(cond
|
(cond
|
||||||
(arg-move-point (right-char)))))
|
(arg-move-point (right-char)))))
|
||||||
(put 'downcase-region 'disabled nil)
|
|
||||||
|
|
||||||
(eval-after-load 'company
|
(eval-after-load 'company
|
||||||
'(progn
|
'(progn
|
||||||
(define-key company-mode-map (kbd "C-:") 'helm-company)
|
(define-key company-mode-map (kbd "C-:") 'helm-company)
|
||||||
(define-key company-active-map (kbd "C-:") 'helm-company)))
|
(define-key company-active-map (kbd "C-:") 'helm-company)))
|
||||||
(require 'xlicense)
|
(require 'xlicense)
|
||||||
|
|
||||||
|
(put 'downcase-region 'disabled nil)
|
||||||
|
(put 'upcase-region 'disabled nil)
|
||||||
|
Loading…
Reference in New Issue
Block a user