(overlay-put overlay 'invisible nil) when isearch

zenozeng · Jul 2, 2014 · dd0322d · dd0322d
1 parent a1c895a
commit dd0322d
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/yafolding.el b/yafolding.el
@@ -4,7 +4,7 @@
 
 ;; Author: Zeno Zeng <[email protected]>
 ;; keywords:
-;; Time-stamp: <2014-07-02 16:25:36 Zeno Zeng>
+;; Time-stamp: <2014-07-02 16:53:44 Zeno Zeng>
 ;; Version: 0.1.3
 
 
@@ -142,6 +142,16 @@
  (yafolding-show-element)
  (yafolding-hide-element)))
 
+(add-hook 'isearch-mode-hook
+ (lambda() (mapcar (lambda (overlay)
+ (overlay-put overlay 'invisible nil))
+ (yafolding-get-overlays (point-min) (point-max)))))
+
+(add-hook 'isearch-mode-end-hook
+ (lambda() (mapcar (lambda (overlay)
+ (overlay-put overlay 'invisible t))
+ (yafolding-get-overlays (point-min) (point-max)))))
+
 ;;;###autoload
 (defvar yafolding-mode-map
  (let ((map (make-sparse-keymap)))