branch: elpa/isl
commit 7166d3020fd00cead3d478e9f2f40bcd78bf7ef4
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Allow disabling invisible search in certain modes (#3)
---
isl.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/isl.el b/isl.el
index 74009ef2c4b..a05ca9ef73f 100644
--- a/isl.el
+++ b/isl.el
@@ -197,6 +197,10 @@ You can toggle this at any time with
\\<isl-map>\\[isl-toggle-multi-search-in-li
(if val
(set-face-attribute 'isl-on nil :extend t)
(set-face-attribute 'isl-on nil :extend nil))))
+
+(defcustom isl-no-invisible-search-in-modes nil
+ "Do not search invisible text in these modes and derived."
+ :type '(repeat symbol))
(defface isl-match
'((t :background "Brown4"))
@@ -1040,6 +1044,8 @@ appended at end."
(setq isl-visited-buffers
(cons isl-current-buffer
(delete isl-current-buffer isl-visited-buffers))))
+ (when (memq major-mode isl-no-invisible-search-in-modes)
+ (setq-local isl-search-invisible nil))
(let ((default (if (region-active-p)
(buffer-substring-no-properties
(region-beginning)
