From 302e15085c1943ab5edaaa6797a38c9e40de1eaf Mon Sep 17 00:00:00 2001 From: Jacopo De Simoi Date: Thu, 14 Mar 2019 11:26:50 -0400 Subject: [PATCH] Turn insert-char-with-padding into a list --- global.org | 18 +++--------------- 1 file changed, 3 insertions(+), 15 deletions(-) diff --git a/global.org b/global.org index b52d395..26fdffb 100644 --- a/global.org +++ b/global.org @@ -852,21 +852,9 @@ (define-key LaTeX-mode-map (kbd "") (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)