Use mapcar to unset global key

global.org

@@ -1,4 +1,4 @@
-#+TITLE: emacs init file
+#+Title: emacs init file
 #+AUTHOR: Jacopo De Simoi
 #+EMAIL: jacopods@math.utoronto.ca
 #+OPTIONS: *:t ::t
@@ -307,14 +307,13 @@
 ** Global bindings
    Remove some supremely annoying bindings
 #+BEGIN_SRC emacs-lisp
-  (global-unset-key (kbd "C-z"))
-  (global-unset-key (kbd "C-x f"))
-  (global-unset-key (kbd "<M-f4>")) ; rly?
+  (mapcar
+   (lambda (ch)
+     (global-unset-key (kbd ch)))
+     '("C-z" "C-x f" "<M-f4>" "C-M-u" "C-M-d"))
 #+END_SRC
    Change {up,down}-list
 #+BEGIN_SRC emacs-lisp
-  (global-unset-key (kbd "C-M-u"))
-  (global-unset-key (kbd "C-M-d"))
   (global-set-key (kbd "C-M-i") 'down-list) ;; -i stands for /in/
   (global-set-key (kbd "C-M-o") 'up-list)   ;; -o stands for /out/
 #+END_SRC