branch: elpa/isl
commit ba2ad990d85b6ddf51d943038964e1cbf2632312
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Use no-helm-mx instead of helm-only
---
isearch-light.el | 28 ++++++++++++++--------------
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index c94a2555edd..e98d65e51fd 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -231,20 +231,20 @@ It put overlay on current position, move to next overlay
using
"Goto first match."
(interactive)
(isl--find-and-goto-overlay (car isl--item-overlays)))
-(put 'isl-goto-first 'helm-only t)
+(put 'isl-goto-first 'no-helm-mx t)
(defun isl-goto-last ()
"Goto last match."
(interactive)
(isl--find-and-goto-overlay (car (last isl--item-overlays))))
-(put 'isl-goto-last 'helm-only t)
+(put 'isl-goto-last 'no-helm-mx t)
(defun isl-goto-closest-from-start ()
"Goto closest match from start."
(interactive)
(isl--find-and-goto-overlay
(isl-closest-overlay isl-initial-pos isl--item-overlays)))
-(put 'isl-goto-closest-from-start 'helm-only t)
+(put 'isl-goto-closest-from-start 'no-helm-mx t)
(defun isl-goto-next ()
"Go to next match."
@@ -253,7 +253,7 @@ It put overlay on current position, move to next overlay
using
(setq isl--direction 'forward)
(isl-set-iterator t))
(isl-goto-next-1))
-(put 'isl-goto-next 'helm-only t)
+(put 'isl-goto-next 'no-helm-mx t)
(defun isl-goto-prev ()
"Go to previous match"
@@ -262,7 +262,7 @@ It put overlay on current position, move to next overlay
using
(setq isl--direction 'backward)
(isl-set-iterator t))
(isl-goto-next-1))
-(put 'isl-goto-prev 'helm-only t)
+(put 'isl-goto-prev 'no-helm-mx t)
(defun isl-exit-at-point ()
"Exit minibuffer and jump at current position."
@@ -280,7 +280,7 @@ It put overlay on current position, move to next overlay
using
;; Call `exit-minibuffer' out of the `with-selected-window' block to
;; avoid error with the emacs-28 version.
(exit-minibuffer))
-(put 'isl-exit-at-point 'helm-only t)
+(put 'isl-exit-at-point 'no-helm-mx t)
(defun isl-yank-word-at-point ()
"Yank word at point in minibuffer.
@@ -300,14 +300,14 @@ the initial position i.e. the position before launching
`isl-search'."
(setq str (replace-match "\\\\ " nil nil str)))
(with-selected-window (minibuffer-window)
(insert str))))))
-(put 'isl-yank-word-at-point 'helm-only t)
+(put 'isl-yank-word-at-point 'no-helm-mx t)
(defun isl-recenter ()
"Recenter from isl."
(interactive)
(with-selected-window (minibuffer-selected-window)
(recenter)))
-(put 'isl-recenter 'helm-only t)
+(put 'isl-recenter 'no-helm-mx t)
(defun isl-matching-style ()
"Return current matching style as a string."
@@ -329,7 +329,7 @@ the initial position i.e. the position before launching
`isl-search'."
(force-mode-line-update)
(sit-for 1)))
(isl-update)))
-(put 'isl-change-matching-style 'helm-only t)
+(put 'isl-change-matching-style 'no-helm-mx t)
(defun isl-jump-to-helm-occur ()
"Invoke `helm-occur' from `isl-search'."
@@ -344,7 +344,7 @@ the initial position i.e. the position before launching
`isl-search'."
(let ((helm-occur-always-search-in-current t))
(helm-multi-occur-1 bufs input))))
(abort-recursive-edit)))
-(put 'isl-jump-to-helm-occur 'helm-only t)
+(put 'isl-jump-to-helm-occur 'no-helm-mx t)
;; Iedit
;;
@@ -415,7 +415,7 @@ the initial position i.e. the position before launching
`isl-search'."
(goto-char pos))
(advice-remove 'iedit-start #'isl--advice-iedit-start)))))
(abort-recursive-edit)))
-(put 'isl-jump-to-iedit-mode 'helm-only t)
+(put 'isl-jump-to-iedit-mode 'no-helm-mx t)
(defun isl-display-or-quit-help ()
"Display or quit isl help buffer."
@@ -437,7 +437,7 @@ the initial position i.e. the position before launching
`isl-search'."
(outline-mode)
(setq buffer-read-only t)
(local-set-key (kbd "q") 'quit-window))))
-(put 'isl-display-or-quit-help 'helm-only t)
+(put 'isl-display-or-quit-help 'no-helm-mx t)
(defun isl-show-or-hide-context-lines ()
"Hide or show non matching lines."
@@ -470,7 +470,7 @@ the initial position i.e. the position before launching
`isl-search'."
(isl--put-invisible-overlay start (point-max)))))
(remove-overlays nil nil 'isl-invisible t)
(remove-from-invisibility-spec '(isl-invisible . t))))))
-(put 'isl-show-or-hide-context-lines 'helm-only t)
+(put 'isl-show-or-hide-context-lines 'no-helm-mx t)
(defun isl--put-invisible-overlay (beg end)
"Make an invisible overlay from BEG to END."
@@ -519,7 +519,7 @@ Optional argument PATTERN default to `isl-pattern'."
(setq-local isl-case-fold-search
(isl-iter-next isl--case-fold-choices-iterator)))
(isl-update)))
-(put 'isl-select-case-fold-search 'helm-only t)
+(put 'isl-select-case-fold-search 'no-helm-mx t)
(defun isl-split-string (str)
"Split string STR at non quoted spaces."
