branch: scratch/mheerdegen-preview
commit 5bdc539e6e012c30fe308cf64d297aed42e7fc92
Author: Michael Heerdegen <[email protected]>
Commit: Michael Heerdegen <[email protected]>
WIP: Include leading comments in occur defun context
---
packages/el-search/el-search.el | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index bd0c1c3..76a480d 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -3511,7 +3511,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))
+ (unless (bobp)
+ (forward-line -1)
+ (while (and (not (bobp))
+ (looking-at "[[:space:]]*;"))
+ (setf (car bounds) (point))
+ (forward-line -1))))
+ bounds))
(defun el-search-occur-get-null-context (match-beg)
(cons match-beg (el-search--end-of-sexp match-beg)))
