More cleanuo

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