Prevent 'Text is read-only' monopolizing minibuffer (ivy/evil/minibuffer)
This commit is contained in:
parent
b632319796
commit
5d83fe83ca
3 changed files with 23 additions and 5 deletions
19
core/autoload/minibuffer.el
Normal file
19
core/autoload/minibuffer.el
Normal file
|
@ -0,0 +1,19 @@
|
||||||
|
;;; ../core/autoload/minibuffer.el
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun doom-minibuffer-kill-word ()
|
||||||
|
"Kill a word, backwards, but only if the cursor is after
|
||||||
|
`minibuffer-prompt-end', to prevent the 'Text is read-only' warning from
|
||||||
|
monopolizing the minibuffer."
|
||||||
|
(interactive)
|
||||||
|
(when (> (point) (minibuffer-prompt-end))
|
||||||
|
(call-interactively 'backward-kill-word)))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun doom-minibuffer-kill-line ()
|
||||||
|
"Kill the entire line, but only if the cursor is after
|
||||||
|
`minibuffer-prompt-end', to prevent the 'Text is read-only' warning from
|
||||||
|
monopolizing the minibuffer."
|
||||||
|
(interactive)
|
||||||
|
(when (> (point) (minibuffer-prompt-end))
|
||||||
|
(call-interactively 'backward-kill-sentence)))
|
|
@ -47,8 +47,8 @@
|
||||||
"C-k" #'ivy-previous-line
|
"C-k" #'ivy-previous-line
|
||||||
"C-j" #'ivy-next-line
|
"C-j" #'ivy-next-line
|
||||||
"C-l" #'ivy-alt-done
|
"C-l" #'ivy-alt-done
|
||||||
"C-w" #'backward-kill-word
|
"C-w" #'doom-minibuffer-kill-word
|
||||||
"C-u" #'backward-kill-sentence
|
"C-u" #'doom-minibuffer-kill-line
|
||||||
"C-b" #'backward-word
|
"C-b" #'backward-word
|
||||||
"C-f" #'forward-word)
|
"C-f" #'forward-word)
|
||||||
|
|
||||||
|
|
|
@ -373,8 +373,8 @@
|
||||||
|
|
||||||
(:map (evil-ex-completion-map evil-ex-search-keymap read-expression-map)
|
(:map (evil-ex-completion-map evil-ex-search-keymap read-expression-map)
|
||||||
"C-a" 'move-beginning-of-line
|
"C-a" 'move-beginning-of-line
|
||||||
"C-w" 'backward-kill-word
|
"C-w" 'doom-minibuffer-kill-word
|
||||||
"C-u" 'backward-kill-sentence
|
"C-u" 'doom-minibuffer-kill-line
|
||||||
"C-b" 'backward-word
|
"C-b" 'backward-word
|
||||||
"C-f" 'forward-word)
|
"C-f" 'forward-word)
|
||||||
|
|
||||||
|
@ -387,4 +387,3 @@
|
||||||
"h" nil
|
"h" nil
|
||||||
"g" nil)))
|
"g" nil)))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue