diff --git a/init.d/basics/input.el b/init.d/basics/input.el
index dcdb3ac..c6351db 100644
--- a/init.d/basics/input.el
+++ b/init.d/basics/input.el
@@ -1,6 +1,6 @@
 ;;; 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:
 ;; * Setup mouse & keyboard behaviour.
@@ -47,7 +47,9 @@ With ARG, do it that many times."
               (interactive "p")
               (my/delete-word (- arg)))
             ;; 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.
          ("M-<down>"      . scroll-up-line) ; Scroll without moving the cursor.
          ("M-<up>"        . scroll-down-line)