branch: master
commit 592b692b61e320a13621961d60765899d2ccbe15
Author: Kevin <nivek...@gmail.com>
Commit: Kevin <nivek...@gmail.com>
Add defcustom for ivy-backward-delete-char
---
ivy.el | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/ivy.el b/ivy.el
index 2b7af6a..c2749c9 100644
--- a/ivy.el
+++ b/ivy.el
@@ -59,6 +59,10 @@ Set this to nil if you don't want the count."
"Whether to wrap around after the first and last candidate."
:type 'boolean)
+(defcustom ivy-backward-delete-char-function `(minibuffer-keyboard-quit)
+ "Function called when ivy-backward-delete-char throws an error."
+ :type 'function)
+
;;* User Visible
;;** Keymap
(require 'delsel)
@@ -155,12 +159,12 @@ If the input is empty, select the previous history
element instead."
(defun ivy-backward-delete-char ()
"Forward to `backward-delete-char'.
-On error (read-only), quit without selecting."
+On error (read-only), call ivy-backward-delete-char-function."
(interactive)
(condition-case nil
(backward-delete-char 1)
(error
- (minibuffer-keyboard-quit))))
+ (eval ivy-backward-delete-char-function))))
;;** Entry Point
(defun ivy-read (prompt collection
