diff options
-rw-r--r-- | lisp/acdw.el | 20 |
1 files changed, 3 insertions, 17 deletions
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 | |||
68 | (let ((func function-def)) | 68 | (let ((func function-def)) |
69 | (dolist (hook hooks) | 69 | (dolist (hook hooks) |
70 | (add-hook hook func)))) | 70 | (add-hook hook func)))) |
71 | |||
71 | ;;; Garbage collection hacks | 72 | ;;; Garbage collection hacks |
72 | 73 | ||
73 | (defconst acdw/gc-cons-threshold-basis (* 800 1024) | 74 | (defconst acdw/gc-cons-threshold-basis (* 800 1024) |
@@ -149,29 +150,14 @@ directory." | |||
149 | 150 | ||
150 | ;;; Keymap & Mode | 151 | ;;; Keymap & Mode |
151 | 152 | ||
152 | (defvar acdw/map (make-sparse-keymap) | ||
153 | "A keymap for my custom bindings.") | ||
154 | |||
155 | (define-minor-mode acdw/mode | ||
156 | "A mode for `acdw/map'." | ||
157 | :init-value t | ||
158 | :lighter " acdw" | ||
159 | :keymap acdw/map) | ||
160 | (define-globalized-minor-mode acdw/global-mode acdw/mode acdw/mode) | ||
161 | |||
162 | ;; Disable `acdw/mode' in the minibuffer | ||
163 | (defun acdw/mode--disable () | ||
164 | "Disable `acdw/mode'." | ||
165 | (acdw/mode -1)) | ||
166 | (add-hook 'minibuffer-setup-hook #'acdw/mode--disable) | ||
167 | |||
168 | ;; Set up a leader key for `acdw/mode' | 153 | ;; Set up a leader key for `acdw/mode' |
169 | (defvar acdw/leader | 154 | (defvar acdw/leader |
170 | (let ((map (make-sparse-keymap)) | 155 | (let ((map (make-sparse-keymap)) |
171 | (c-z (global-key-binding "\C-z"))) | 156 | (c-z (global-key-binding "\C-z"))) |
172 | (define-key acdw/map "\C-z" map) | 157 | (global-set-key "\C-z" map) |
173 | (define-key map "\C-z" c-z) | 158 | (define-key map "\C-z" c-z) |
174 | map)) | 159 | map)) |
175 | 160 | ||
176 | (provide 'acdw) | 161 | (provide 'acdw) |
162 | |||
177 | ;;; acdw.el ends here | 163 | ;;; acdw.el ends here |