[elpa] master 5afceff 52/57: ivy.el (ivy-forward-char): Add and bind to "C-f"

[Oleh Krehel]

branch: master
commit 5afceff943e3c034fc4c026b98370c5e0df91b0f
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    ivy.el (ivy-forward-char): Add and bind to "C-f"
    
    This is to avoid problems for the ido-related "C-x C-f C-f" reflex.
---
 ivy.el |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/ivy.el b/ivy.el
index b4b620a..8f68bc7 100644
--- a/ivy.el
+++ b/ivy.el
@@ -108,6 +108,7 @@ Only \"./\" and \"../\" apply here. They appear in reverse 
order."
     (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 "C-f") 'ivy-forward-char)
     (define-key map (kbd "M-d") 'ivy-kill-word)
     (define-key map (kbd "M-<") 'ivy-beginning-of-buffer)
     (define-key map (kbd "M->") 'ivy-end-of-buffer)
@@ -489,6 +490,12 @@ On error (read-only), call `ivy-on-del-error-function'."
   (unless (= (point) (line-end-position))
     (delete-char arg)))
 
+(defun ivy-forward-char (arg)
+  "Forward to `forward-char' ARG."
+  (interactive "p")
+  (unless (= (point) (line-end-position))
+    (forward-char arg)))
+
 (defun ivy-kill-word (arg)
   "Forward to `kill-word' ARG."
   (interactive "p")