Properly handle backspace in minibuffer
This commit is contained in:
parent
4e05974fb1
commit
12bbbedbca
@ -46,12 +46,5 @@
|
||||
"r" (general-key "C-c C-v r")
|
||||
"s" 'eshell)
|
||||
|
||||
|
||||
;; broken
|
||||
(general-define-key
|
||||
:prefix-map 'minibuffer-mode-map
|
||||
"DEL" 'backward-kill-word)
|
||||
|
||||
|
||||
(provide 'mitch-keybinds)
|
||||
;;; mitch-keybinds.el ends here
|
||||
|
@ -189,7 +189,21 @@ This is taken from a website that I can't remember at the moment."
|
||||
:straight (:files (:defaults "extensions/vertico-mouse.el"))
|
||||
:custom (vertico-resize t)
|
||||
:config (vertico-mode)
|
||||
(add-hook 'minibuffer-setup-hook 'turn-off-line-numbers))
|
||||
(add-hook 'minibuffer-setup-hook 'turn-off-line-numbers)
|
||||
(defun backspace-in-minibuffer ()
|
||||
"If previous character is `/', kill to the previous `/'.
|
||||
Otherwise, kill back 1 letter."
|
||||
(interactive)
|
||||
(if (= (string-to-char "/") (preceding-char))
|
||||
(progn
|
||||
(delete-region (- (point) 1)
|
||||
(search-backward "/" nil nil 2))
|
||||
(goto-char (1+ (point))))
|
||||
(backward-delete-char 1)))
|
||||
:general
|
||||
(general-define-key
|
||||
:prefix-map 'minibuffer-mode-map
|
||||
"DEL" 'backspace-in-minibuffer))
|
||||
(use-feature vertico-mouse
|
||||
:straight vertico
|
||||
:after vertico
|
||||
|
Loading…
Reference in New Issue
Block a user