[elpa] externals/el-search 68fcfcd 286/332: [el-search] Include preceding comments in occur defun context

[Stefan Monnier]

branch: externals/el-search
commit 68fcfcdbdf31d1ba0ef09577d7fe7b558a0476c2
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    [el-search] Include preceding comments in occur defun context
    
    * packages/el-search/el-search.el (el-search-occur-get-defun-context):
    Include preceding comments.
---
 el-search.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/el-search.el b/el-search.el
index 97b9552..27eceb0 100644
--- a/el-search.el
+++ b/el-search.el
@@ -3364,7 +3364,16 @@ Prompt for a new pattern and revert."
             (el-search--end-of-sexp match-beg)))))
 
 (defun el-search-occur-get-defun-context (match-beg)
-  (el-search--bounds-of-defun match-beg))
+  (let ((bounds (el-search--bounds-of-defun match-beg)))
+    (save-excursion
+      (goto-char (car bounds))
+      (let ((done nil))
+        (while (not (or done (bobp)))
+          (forward-line -1)
+          (if (looking-at-p "[[:space:]]*;")
+              (setf (car bounds) (point))
+            (setq done t)))))
+    bounds))
 
 (defun el-search-occur-get-null-context (match-beg)
   (cons match-beg (el-search--end-of-sexp match-beg)))