Remove acdw/map

1 files changed, 3 insertions, 17 deletions

@@ -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