Convert to dolist where possible

diff --git a/init.el b/init.el
index ac52c31ec33b79498191fcd71b3ea3e70eb40e0c..941ee2b6f34429b37272a3c7cab5fc478ad42a1b 100644 (file)
--- a/init.el
+++ b/init.el
@@ -24,8 +24,8 @@
            (require 're-skeletons)
            (when (not (equal system-type 'windows-nt)) (require 're-mu4e))))
 
-(add-to-list 'auto-mode-alist '("\\.keymap\\'" . c-mode))
-(add-to-list 'auto-mode-alist '("\\.dtsi\\'" . c-mode))
+(dolist (mode-maps '(("\\.keymap\\'" . c-mode) ("\\.dtsi\\'" . c-mode)))
+  (add-to-list 'auto-mode-alist mode-maps t))
 
 (add-hook 'c-mode-hook (lambda () (require 're-c-style)))
 \f
@@ -55,33 +55,22 @@
                         newline-mark
                         missing-newline-at-eof))
 
-(defvaralias 'c-basic-offset 'tab-width)
-(defvaralias 'cperl-indent-level 'tab-width)
-(defvaralias 'LaTeX-indent-level 'tab-width)
+(dolist (indent-level '(c-basic-offset cperl-indent-level LaTeX-indent-level))
+  (defvaralias indent-level 'tab-width))
 
-(add-hook 'prog-mode-hook
-         (lambda () (keymap-local-set "<TAB>" #'self-insert-command)))
-
-(add-hook 'text-mode-hook
-         (lambda ()
-           (keymap-set text-mode-map "<TAB>" #'self-insert-command)))
-(add-hook 'LaTeX-mode
-         (lambda ()
-           (keymap-set LaTeX-mode-map "<TAB>" #'self-insert-command)))
+(dolist (hook '(prog-mode-hook text-mode-hook LaTeX-mode-hook))
+  (add-hook hook
+           (lambda ()
+             (keymap-local-set "<TAB>" #'self-insert-command)
+             (setq indent-line-function 'tab-to-tab-stop))))
 \f
 ;; Buffer dealiŋ
 (setq-default indicate-empty-lines t
              truncate-lines t
              fill-column 78)
 
-(defvar *re/vlm-hooks*
-  '(text-mode-hook ;catches most
-    LaTeX-mode-hook))
-
-(dolist (hook *re/vlm-hooks*)
-  (lambda ()
-    (add-hook hook #'visual-line-mode)
-    (setq indent-line-function 'tab-to-tab-stop)))
+(dolist (hook '(text-mode-hook LaTeX-mode-hook))
+  (lambda () (add-hook hook #'visual-line-mode)))
 
 (add-to-list 'display-buffer-alist
             '("^\\*eldoc" display-buffer-in-direction
@@ -290,8 +279,8 @@
 (setq abbrev-file-name (expand-file-name "abbrev_defs" user-emacs-directory)
       save-abbrevs 'silently)
 
-(add-hook 'org-mode-hook #'abbrev-mode)
-(add-hook 'howm-mode-hook #'abbrev-mode)
+(dolist (hook '(org-mode-hook 'howm-mode-hook))
+  (add-hook hook #'abbrev-mode))
 \f
 ;; Customization framework
 ;; Disable by making a temp file (stolen from prot)