branch: elpa/isl
commit e3e82fe186c3e03cd1f7c98eaa71792ba619ca6c
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Add isl-delete-minibuffer-contents command
---
isearch-light.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/isearch-light.el b/isearch-light.el
index 61869cf325f..8ef689ab216 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -205,6 +205,7 @@ in pattern."
(define-key map (kbd "C-l") 'isl-recenter)
(define-key map (kbd "C-v") 'isl-scroll-up)
(define-key map (kbd "M-v") 'isl-scroll-down)
+ (define-key map (kbd "C-k") 'isl-delete-minibuffer-contents)
map))
;;; Actions
@@ -270,6 +271,15 @@ It put overlay on current position, move to next overlay
using
(isl-scroll-1 -1))
(put 'isl-scroll-down 'no-helm-mx t)
+(defun isl-delete-minibuffer-contents ()
+ "No docstring."
+ (interactive)
+ (with-selected-window (minibuffer-window)
+ (if (eolp)
+ (delete-region (minibuffer-prompt-end) (point))
+ (delete-region (point) (point-max)))))
+(put 'isl-delete-minibuffer-contents 'no-helm-mx t)
+
(defun isl--find-and-goto-overlay (overlay)
"Consume iterators up to OVERLAY and jump to it."
(with-selected-window (minibuffer-selected-window)
