Turn insert-char-with-padding into a list

global.org

@@ -852,21 +852,9 @@
             (define-key LaTeX-mode-map (kbd "<f4>") (lambda() (interactive) (message "Use C-c C-c")))
             (define-key LaTeX-mode-map (kbd "C-c C-c") (lambda() (interactive) (compile "/home/jacopods/scripts/latex-mk")) )
 
-                ;; Turn this into a list
-            (define-key LaTeX-mode-map (kbd "=") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "≠") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd ">") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "<") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "≥") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "≤") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "⇒") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "∩") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "∪") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "∨") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "∧") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "×") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "⊂") 'insert-char-with-padding)
-            (define-key LaTeX-mode-map (kbd "⊃") 'insert-char-with-padding)
+            (mapcar (lambda (ch)
+                      (define-key LaTeX-mode-map (kbd ch) 'insert-char-with-padding))
+                    '("=" "≠" ">" "<" "≥" "≤" "⇒" "∩" "∪" "∨" "∧" "×" "⊂" "⊃"))
 
             (define-key LaTeX-mode-map (kbd "~") 'wilder/TeX-replace-tilde)