branch: master
commit 93faef3a22478afa13e4bc8269f7791384e9210e
Author: Oleh Krehel <[email protected]>
Commit: Oleh Krehel <[email protected]>
ivy.el (ivy-delete-char): Add and bind to "C-d"
`delete-char' must not be called when at end of line, since that would
bring the first candidate into the input.
Fixes #94
---
ivy.el | 7 +++++++
1 files changed, 7 insertions(+), 0 deletions(-)
diff --git a/ivy.el b/ivy.el
index 1a92d0d..d620a8c 100644
--- a/ivy.el
+++ b/ivy.el
@@ -107,6 +107,7 @@ Only \"./\" and \"../\" apply here. They appear in reverse
order."
(define-key map (kbd "SPC") 'self-insert-command)
(define-key map (kbd "DEL") 'ivy-backward-delete-char)
(define-key map (kbd "M-DEL") 'ivy-backward-kill-word)
+ (define-key map (kbd "C-d") 'ivy-delete-char)
(define-key map (kbd "M-<") 'ivy-beginning-of-buffer)
(define-key map (kbd "M->") 'ivy-end-of-buffer)
(define-key map (kbd "<left>") 'ivy-beginning-of-buffer)
@@ -482,6 +483,12 @@ On error (read-only), call `ivy-on-del-error-function'."
(when ivy-on-del-error-function
(funcall ivy-on-del-error-function))))))
+(defun ivy-delete-char (arg)
+ "Forward to `delete-char' ARG."
+ (interactive "p")
+ (unless (= (point) (line-end-position))
+ (delete-char arg)))
+
(defun ivy-backward-kill-word ()
"Forward to `backward-kill-word'."
(interactive)
