branch: scratch/mheerdegen-preview
commit 654133c7273dd4008f8dca9715f926e7a24a34fa
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@web.de>
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 0a3c9bd..bd0c1c3 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
