From b97450aa3cf59f5f6dc17a8c79674b06923336c4 Mon Sep 17 00:00:00 2001
From: Jacopo De Simoi <wilderjds@protonmail.com>
Date: Mon, 22 Dec 2025 07:57:44 -0500
Subject: [PATCH] More cleanuo

---
 global.org | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/global.org b/global.org
index 98b3977..a09f62f 100644
--- a/global.org
+++ b/global.org
@@ -599,8 +599,8 @@
    #+end_src
    Change {up,down}-list
    #+begin_src emacs-lisp
-     (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/
+     (global-set-key-alist '(( "C-M-i" . down-list)
+     			( "C-M-o" . up-list)))
    #+end_src
    Add some opinionated bindings
    #+begin_src emacs-lisp
@@ -614,9 +614,10 @@
 ** Disable commands
    Enable narrow commands
    #+begin_src emacs-lisp
-     (put 'narrow-to-region 'disabled nil)
-     (put 'LaTeX-narrow-to-environment 'disabled nil)
-     (put 'narrow-to-page 'disabled nil)
+     (dolist (fun '(narrow-to-region
+     	       LaTeX-narrow-to-environment
+     	       narrow-to-page))
+       (put fun 'disabled nil))
    #+end_src
 ** Smart beginning-of-line
    This is a relatively smart way to go back to the beginning of the line