[elpa] scratch/mheerdegen-preview 6a048a7 26/33: WIP: Don't initially fold occur buffer

[Michael Heerdegen]

branch: scratch/mheerdegen-preview
commit 6a048a769ae170548b54749abae059d95181124e
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    WIP: Don't initially fold occur buffer
---
 packages/el-search/el-search.el | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 16757cf..1780c6d 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -272,9 +272,8 @@
 ;; match in that buffer or file.  With S-tab you can (un)collapse all
 ;; file sections like in `org-mode' to see only file names and the
 ;; number of matches, or everything.  Tab folds and unfolds
-;; expressions (this uses hideshow; initially, all expressions are
-;; folded to one line) and also sections at the beginning of
-;; headlines.
+;; expressions (this uses hideshow) and also sections at the beginning
+;; of headlines.
 ;;
 ;;
 ;; Multiple multi searches
@@ -3666,14 +3665,7 @@ Prompt for a new pattern and revert."
                                       (point) (el-search--end-of-sexp 
context-beg))))))
 
                               (let ((inhibit-message t) (message-log-max nil))
-                                (indent-region insertion-point (point))
-                                (save-excursion
-                                  (goto-char insertion-point)
-                                  (ignore-errors
-                                    ;; This can error...
-                                    (if nil ;if need-context
-                                        (hs-hide-level 1)
-                                      (hs-hide-block)))))
+                                (indent-region insertion-point (point)))
                               (insert "\n")))))))
 
                   (save-excursion