Emacs: Enable upcase-region and downcase-region.

This commit is contained in:
tastytea 2020-04-27 14:45:52 +02:00
parent 15402c4ac9
commit b11a9e709f

View File

@ -1,6 +1,6 @@
;;; input.el --- Configure behaviour of input devices. -*- lexical-binding: t; -*- ;;; input.el --- Configure behaviour of input devices. -*- lexical-binding: t; -*-
;; Time-stamp: <2020-04-17T16:43:34+0200> ;; Time-stamp: <2020-04-27T14:45:35+0200>
;;; Commentary: ;;; Commentary:
;; * Setup mouse & keyboard behaviour. ;; * Setup mouse & keyboard behaviour.
@ -47,7 +47,9 @@ With ARG, do it that many times."
(interactive "p") (interactive "p")
(my/delete-word (- arg))) (my/delete-word (- arg)))
;; Enable keybindings. ;; Enable keybindings.
(put 'set-goal-column 'disabled nil)) (put 'set-goal-column 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil))
:bind (("C-S-<delete>" . fixup-whitespace) ; Reduce whitespace around cursor. :bind (("C-S-<delete>" . fixup-whitespace) ; Reduce whitespace around cursor.
("M-<down>" . scroll-up-line) ; Scroll without moving the cursor. ("M-<down>" . scroll-up-line) ; Scroll without moving the cursor.
("M-<up>" . scroll-down-line) ("M-<up>" . scroll-down-line)