edit (ble/builtin/read): cancel by "C-d" on an empty line

akinomyoga · May 19, 2021 · 4fae77a · 4fae77a
1 parent 70797cf
commit 4fae77a
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/edit.sh b/src/edit.sh
@@ -2691,7 +2691,6 @@ function ble/widget/exit {
 function ble/widget/delete-forward-char-or-exit {
   if [[ $_ble_edit_str ]]; then
     ble/widget/delete-forward-char
-    return
   else
     ble/widget/exit
   fi
@@ -6526,6 +6525,13 @@ function ble/widget/read/cancel {
   ble/widget/read/accept
   _ble_edit_read_accept=2
 }
+function ble/widget/read/delete-forward-char-or-cancel {
+  if [[ $_ble_edit_str ]]; then
+    ble/widget/delete-forward-char
+  else
+    ble/widget/read/cancel
+  fi
+}
 
 function ble-decode/keymap:read/define {
   local ble_bind_keymap=read
@@ -6539,6 +6545,7 @@ function ble-decode/keymap:read/define {
   ble-bind -f 'C-m' read/accept
   ble-bind -f 'RET' read/accept
   ble-bind -f 'C-j' read/accept
+  ble-bind -f 'C-d' 'delete-region-or read/delete-forward-char-or-cancel'
 
   # shell functions
   ble-bind -f  'C-g'     bell