From ca639749d61a73319b3b3a4650c5fc3fa00c01c7 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 20 Nov 2014 21:56:19 -0500
Subject: Stop quoting lambdas

---
 lisp/init-git.el       | 2 +-
 lisp/init-gnus.el      | 5 ++---
 lisp/init-ido.el       | 4 ++--
 lisp/init-org.el       | 6 +++---
 lisp/init-snakemake.el | 6 +++---
 lisp/init-text.el      | 6 +++---
 6 files changed, 14 insertions(+), 15 deletions(-)

(limited to 'lisp')

diff --git a/lisp/init-git.el b/lisp/init-git.el
index dec7309..496892a 100644
--- a/lisp/init-git.el
+++ b/lisp/init-git.el
@@ -45,7 +45,7 @@ This is useful for commit IDs in files and log messages."
   (interactive)
   (--when-let (thing-at-point 'word)
     (let ((projectile-switch-project-action
-           '(lambda () (magit-show-commit it))))
+           (lambda () (magit-show-commit it))))
       (projectile-switch-project))))
 
 (defun km/magit-commit-extend-all ()
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el
index 79ad916..e2156d7 100644
--- a/lisp/init-gnus.el
+++ b/lisp/init-gnus.el
@@ -84,8 +84,7 @@
 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
 
 (add-hook 'message-mode-hook
-          '(lambda ()
-             (flyspell-mode 1)))
+          (lambda () (flyspell-mode 1)))
 
 (defun km/gnus-follow-last-message-link (arg)
   "Follow link at bottom of message.
@@ -269,7 +268,7 @@ read. Don't ask to confirm."
   (ad-set-arg 0 t))
 
 (defun km/gnus-setup-local-ace-jump ()
-  (add-hook 'ace-jump-mode-end-hook '(lambda () (gnus-summary-scroll-up 0))
+  (add-hook 'ace-jump-mode-end-hook (lambda () (gnus-summary-scroll-up 0))
             nil t))
 (add-hook 'gnus-summary-mode-hook 'km/gnus-setup-local-ace-jump)
 
diff --git a/lisp/init-ido.el b/lisp/init-ido.el
index 78f6140..7a25f99 100644
--- a/lisp/init-ido.el
+++ b/lisp/init-ido.el
@@ -16,8 +16,8 @@
       ido-max-directory-size 100000)
 
 (add-hook 'dired-mode-hook
-          '(lambda ()
-             (set (make-local-variable 'ido-use-filename-at-point) nil)))
+          (lambda ()
+            (set (make-local-variable 'ido-use-filename-at-point) nil)))
 
 (setq ido-file-extensions-order
       '(".org" ".txt" ".md" ".rst" ".tex" ".py" ".el" ".hs"))
diff --git a/lisp/init-org.el b/lisp/init-org.el
index f768bac..cbaab0a 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -243,9 +243,9 @@ to
 (after 'git-commit-mode
   (add-hook 'git-commit-setup-hook 'km/load-orgstruct))
 
-(add-hook 'next-error-hook '(lambda ()
-                              (when (eq major-mode 'org-mode)
-                                (org-show-context))))
+(add-hook 'next-error-hook (lambda ()
+                             (when (eq major-mode 'org-mode)
+                               (org-show-context))))
 
 (defadvice magit-visit
   (after magit-visit-show-org-context activate)
diff --git a/lisp/init-snakemake.el b/lisp/init-snakemake.el
index ccf35f8..c3c4a7f 100644
--- a/lisp/init-snakemake.el
+++ b/lisp/init-snakemake.el
@@ -7,9 +7,9 @@
 ;; mode hook that sets `compile-command', which overides the snakemake
 ;; version.
 (add-hook 'snakemake-mode-hook
-          '(lambda ()
-             (set (make-local-variable 'compile-command)
-                  (snakemake-compile-command))))
+          (lambda ()
+            (set (make-local-variable 'compile-command)
+                 (snakemake-compile-command))))
 
 (defun km/snakemake-compile-project-file (jobs)
   "Run Snakemake to produce project file at point.
diff --git a/lisp/init-text.el b/lisp/init-text.el
index d1509f1..e432272 100644
--- a/lisp/init-text.el
+++ b/lisp/init-text.el
@@ -2,9 +2,9 @@
 
 (setq-default fill-column 72)
 
-(add-hook 'text-mode-hook '(lambda ()
-                             (abbrev-mode 1)
-                             (turn-on-auto-fill)))
+(add-hook 'text-mode-hook (lambda ()
+                            (abbrev-mode 1)
+                            (turn-on-auto-fill)))
 
 (defun km/export-wrapped-text (arg)
   "Export the text in current buffer as wrapped text.
-- 
cgit v1.2.3