awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix #3783: advice org-completing-read in bepo

Browse Source 
The original function tries to map `C-c !` in
minibuffer-local-completion-map although `C-c` is a non-prefix key in
this map for bepo users
This commit is contained in:
Gerry Agbobada
2020-08-22 15:47:57 +02:00
parent f83e6fe1cc
commit 4f81870fda
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
modules/input/layout/+bepo.el
View File

@ -83,6 +83,23 @@
(general-translate-key '(normal motion) 'lispyville-mode-map
"«" "<"
"»" ">"))
(after! org
(defadvice! doom-bepo--org-completing-read (&rest args)
"Completing-read with SPACE being a normal character, and C-c mapping left alone."
:override #'org-completing-read
(let ((enable-recursive-minibuffers t)
(minibuffer-local-completion-map
(copy-keymap minibuffer-local-completion-map)))
(define-key minibuffer-local-completion-map " " 'self-insert-command)
(define-key minibuffer-local-completion-map "?" 'self-insert-command)
(define-key minibuffer-local-completion-map
(cond
((eq doom-bepo-cr-rotation-style 'ergodis)
(kbd "C-l !"))
(t
(kbd "C-h !")))
'org-time-stamp-inactive)
(apply #'completing-read args))))
(after! (evil magit evil-magit)
(doom-bepo-rotate-ts-bare-keymap
'(magit-mode-map