emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/mheerdegen-preview 654133c 26/32: WIP: Don't initially fo


From: Michael Heerdegen
Subject: [elpa] scratch/mheerdegen-preview 654133c 26/32: WIP: Don't initially fold occur buffer
Date: Sat, 20 Oct 2018 18:19:02 -0400 (EDT)

branch: scratch/mheerdegen-preview
commit 654133c7273dd4008f8dca9715f926e7a24a34fa
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 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]