From 745548fd364e1dfcb269d0a0bc0c0e09ecfed09c Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Sat, 16 Mar 2019 17:58:34 -0400 Subject: [PATCH] Use mapcar to unset global key --- global.org | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/global.org b/global.org index d987618..e7a44c4 100644 --- a/global.org +++ b/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 "")) ; rly? + (mapcar + (lambda (ch) + (global-unset-key (kbd ch))) + '("C-z" "C-x f" "" "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