summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/acdw.el20
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