[elpa] master 93faef3 41/57: ivy.el (ivy-delete-char): Add and bind to "C-d"

[Oleh Krehel]

branch: master
commit 93faef3a22478afa13e4bc8269f7791384e9210e
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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)