From a55c158dc6c23dfce85c6db9458b380b92156ad9 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 6 Apr 2021 12:46:31 -0500
Subject: Remove acdw/map

---
 lisp/acdw.el | 20 +++-----------------
 1 file changed, 3 insertions(+), 17 deletions(-)

(limited to 'lisp')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 79d5c70..d412b4b 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -68,6 +68,7 @@ FUNCTION-DEF should be a `defun' form.  This function is just to
   (let ((func function-def))
     (dolist (hook hooks)
       (add-hook hook func))))
+
 ;;; Garbage collection hacks
 
 (defconst acdw/gc-cons-threshold-basis (* 800 1024)
@@ -149,29 +150,14 @@ directory."
 
 ;;; Keymap & Mode
 
-(defvar acdw/map (make-sparse-keymap)
-  "A keymap for my custom bindings.")
-
-(define-minor-mode acdw/mode
-  "A mode for `acdw/map'."
-  :init-value t
-  :lighter " acdw"
-  :keymap acdw/map)
-(define-globalized-minor-mode acdw/global-mode acdw/mode acdw/mode)
-
-;; Disable `acdw/mode' in the minibuffer
-(defun acdw/mode--disable ()
-  "Disable `acdw/mode'."
-  (acdw/mode -1))
-(add-hook 'minibuffer-setup-hook #'acdw/mode--disable)
-
 ;; Set up a leader key for `acdw/mode'
 (defvar acdw/leader
   (let ((map (make-sparse-keymap))
         (c-z (global-key-binding "\C-z")))
-    (define-key acdw/map "\C-z" map)
+    (global-set-key "\C-z" map)
     (define-key map "\C-z" c-z)
     map))
 
 (provide 'acdw)
+
 ;;; acdw.el ends here
-- 
cgit 1.4.1-21-gabe81