From ac88462e2f892bca209ffe4a59c4f4a0285e1656 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 20 Aug 2021 08:29:40 -0500
Subject: Fix typos

---
 init.el | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 20010d1..ddf2708 100644
--- a/init.el
+++ b/init.el
@@ -541,15 +541,15 @@ like a dumbass."
                   (defun list-buffers-or-ibuffer (arg)
                     "`list-buffers', or with a prefix arg, `ibuffer'."
                     (interactive "P")
-                    (if arg (ibuffer) (electric-buffer-list nil)))))
+                    (if arg (ibuffer) (electric-buffer-list nil))))
 
-(add-hook 'ibuffer-mode
-          (defun ibuffer@filter-to-default ()
-            (ibuffer-switch-to-saved-filter-groups "default")))
-
-(:also-load ibuf-ext)
-(:option ibuffer-show-empty-filter-groups nil
-         ibuffer-expert t))
+  (add-hook 'ibuffer-mode
+            (defun ibuffer@filter-to-default ()
+              (ibuffer-switch-to-saved-filter-groups "default")))
+  
+  (:also-load ibuf-ext)
+  (:option ibuffer-show-empty-filter-groups nil
+	       ibuffer-expert t))
 
 (setup imenu
   (:option imenu-auto-rescan t))
@@ -1205,12 +1205,13 @@ successive invocations."
            "<help> k" helpful-key
            "<help> o" helpful-symbol
            "C-c C-d" helpful-at-point)
-  (define-key helpful-mode-map "q"
-    (defun helpful-mode|quit ()
-      (interactive)
-      (bury-buffer)
-      (unless (window-parameter (frame-selected-window) 'no-other-window)
-        (delete-window)))))
+  (with-eval-after-load 'helpful
+    (define-key helpful-mode-map "q"
+      (defun helpful-mode|quit ()
+        (interactive)
+        (bury-buffer)
+        (unless (window-parameter (frame-selected-window) 'no-other-window)
+          (delete-window))))))
 
 (setup (:straight iscroll)
   (:hook-into text-mode))
@@ -1556,8 +1557,9 @@ successive invocations."
     (if (string-match-p "/." (minibuffer-contents))
         (zap-up-to-char (- arg) ?/)
       (backward-kill-word arg)))
-  
-  (define-key vertico-map (kbd "<C-backspace>") #'up-directory)
+
+  (with-eval-after-load 'vertico
+    (define-key vertico-map (kbd "<C-backspace>") #'up-directory))
   
   (if (boundp 'comp-deferred-compilation-deny-list)
       (add-to-list 'comp-deferred-compilation-deny-list "vertico"))
-- 
cgit 1.4.1-21-gabe81