pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

We'll investigate this later

Browse source
This commit is contained in:
Benson Chu 2022-06-12 05:25:17 -05:00
parent bfb5dd7451
commit 03be0085d3
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/keymap.el
View file

@ -5,18 +5,18 @@
(define-minor-mode pestctrl-minor-mode ""
:keymap pestctrl-minor-mode-map :global t)
(add-hook 'after-load-functions 'my-keys-have-priority)
;; (add-hook 'after-load-functions 'my-keys-have-priority)
(defun my-keys-have-priority (_file)
"Try to ensure that my keybindings retain priority over other minor modes.
;; (defun my-keys-have-priority (_file)
;; "Try to ensure that my keybindings retain priority over other minor modes.
Called via the `after-load-functions' special hook."
(unless (eq (caar minor-mode-map-alist) 'pestctrl-minor-mode)
(let ((mykeys (assq 'pestctrl-minor-mode minor-mode-map-alist)))
(message "%s" (key-binding (kbd "C-t")))
(assq-delete-all 'pestctrl-minor-mode minor-mode-map-alist)
(message "%s" (key-binding (kbd "C-t")))
(add-to-list 'minor-mode-map-alist mykeys))))
;; Called via the `after-load-functions' special hook."
;; (unless (eq (caar minor-mode-map-alist) 'pestctrl-minor-mode)
;; (let ((mykeys (assq 'pestctrl-minor-mode minor-mode-map-alist)))
;; (message "%s" (key-binding (kbd "C-t")))
;; (assq-delete-all 'pestctrl-minor-mode minor-mode-map-alist)
;; (message "%s" (key-binding (kbd "C-t")))
;; (add-to-list 'minor-mode-map-alist mykeys))))
(defmacro exwm-global-set-key (keybinding function)
`(progn