From c2083aa9b9d210629c945b398551cf6194d7da2d Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Sun, 8 Jan 2023 22:39:19 -0700 Subject: emacs: Shut up complaints about .emacs.d/init.el: Warning: (lambda nil \.\.\.) quoted with ' rather than with #' --- .config/emacs/init.el | 102 +++++++++++++++++++++++++------------------------- 1 file changed, 51 insertions(+), 51 deletions(-) diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 0dde967..87ae351 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -83,18 +83,18 @@ :config (progn ;; Modus makes MMM regions almost impossible to see (add-hook 'modus-themes-after-load-theme-hook - '(lambda () - (modus-themes-with-colors - (custom-set-faces - `(mmm-cleanup-submode-face ((,class :background ,yellow-refine-bg))) - `(mmm-code-submode-face ((,class :background ,bg-active))) - `(mmm-comment-submode-face ((,class :background ,blue-refine-bg))) - `(mmm-declaration-submode-face ((,class :background ,cyan-refine-bg))) - `(mmm-default-submode-face ((,class :background ,bg-alt))) - `(mmm-init-submode-face ((,class :background ,magenta-refine-bg))) - `(mmm-output-submode-face ((,class :background ,red-refine-bg))) - `(mmm-special-submode-face ((,class :background ,green-refine-bg))))) - )) + (lambda () + (modus-themes-with-colors + (custom-set-faces + `(mmm-cleanup-submode-face ((,class :background ,yellow-refine-bg))) + `(mmm-code-submode-face ((,class :background ,bg-active))) + `(mmm-comment-submode-face ((,class :background ,blue-refine-bg))) + `(mmm-declaration-submode-face ((,class :background ,cyan-refine-bg))) + `(mmm-default-submode-face ((,class :background ,bg-alt))) + `(mmm-init-submode-face ((,class :background ,magenta-refine-bg))) + `(mmm-output-submode-face ((,class :background ,red-refine-bg))) + `(mmm-special-submode-face ((,class :background ,green-refine-bg))))) + )) ;; Load the theme. Use this function instead of ;; load-theme in order to get the above hook. (modus-themes-load-vivendi) @@ -159,9 +159,9 @@ (use-package graphviz-dot-mode :mode ("\\.dot\\'" "\\.gv\\'") :config (add-hook 'graphviz-dot-mode-hook - '(lambda () - (set (make-local-variable 'graphviz-dot-auto-indent-on-semi) nil) - ))) + (lambda () + (set (make-local-variable 'graphviz-dot-auto-indent-on-semi) nil) + ))) (use-package jq-mode :mode "\\.jq\\'" :interpreter "jq") @@ -189,10 +189,10 @@ "\\.cson\\'") :interpreter "coffee" :config (add-hook 'coffee-mode-hook - '(lambda () - (set (make-local-variable 'tab-width) 2) - (set (make-local-variable 'indent-tabs-mode) nil) - ))) + (lambda () + (set (make-local-variable 'tab-width) 2) + (set (make-local-variable 'indent-tabs-mode) nil) + ))) (use-package haml-mode :mode "\\.haml\\'") (use-package less-css-mode :mode "\\.less\\'") (use-package php-mode @@ -293,9 +293,9 @@ sh-script.el is broken." (when (fboundp 'xterm-mouse-mode) (xterm-mouse-mode 1) (add-hook 'after-make-frame-functions - '(lambda (frame) - (if xterm-mouse-mode (xterm-mouse-mode 1)) - ))) + (lambda (frame) + (if xterm-mouse-mode (xterm-mouse-mode 1)) + ))) ;; Make TRAMP obey ~/.ssh/config for ControlMaster. For some reason, ;; customize doesn't correctly set this. @@ -385,47 +385,47 @@ sh-script.el is broken." (add-hook 'text-mode-hook 'turn-on-auto-fill) (add-hook 'lisp-mode-hook - '(lambda () - (set (make-local-variable 'indent-tabs-mode) nil) - )) + (lambda () + (set (make-local-variable 'indent-tabs-mode) nil) + )) (add-hook 'emacs-lisp-mode-hook - '(lambda () - (set (make-local-variable 'indent-tabs-mode) nil) - )) + (lambda () + (set (make-local-variable 'indent-tabs-mode) nil) + )) (add-hook 'term-mode-hook - '(lambda () - (auto-fill-mode -1) - (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *") - (set (make-local-variable 'mouse-yank-at-point) t) - (setq tab-width 8 ) - (setq truncate-lines nil) - (set (make-local-variable 'autopair-dont-activate) t) ;; Don't let autopair break ansi-term - )) + (lambda () + (auto-fill-mode -1) + (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *") + (set (make-local-variable 'mouse-yank-at-point) t) + (setq tab-width 8 ) + (setq truncate-lines nil) + (set (make-local-variable 'autopair-dont-activate) t) ;; Don't let autopair break ansi-term + )) (add-hook 'ruby-mode-hook - '(lambda () - (set (make-local-variable 'indent-tabs-mode) t) - (set (make-local-variable 'ruby-indent-level) 4) - (set (make-local-variable 'tab-width) 4) - )) + (lambda () + (set (make-local-variable 'indent-tabs-mode) t) + (set (make-local-variable 'ruby-indent-level) 4) + (set (make-local-variable 'tab-width) 4) + )) (add-hook 'tex-mode-hook - '(lambda () - (set (make-local-variable 'tab-always-indent) nil) - (set (make-local-variable 'indent-tabs-mode) t) - )) + (lambda () + (set (make-local-variable 'tab-always-indent) nil) + (set (make-local-variable 'indent-tabs-mode) t) + )) (add-hook 'sh-mode-hook - '(lambda () - (sh-electric-here-document-mode 0) - )) + (lambda () + (sh-electric-here-document-mode 0) + )) (add-hook 'erc-mode-hook - '(lambda () - (define-key erc-mode-map (kbd "C-c C-u") 'erc-cmd-QUERY) - )) + (lambda () + (define-key erc-mode-map (kbd "C-c C-u") 'erc-cmd-QUERY) + )) (add-hook 'js-mode-hook (lambda () -- cgit v1.1-4-g5e80