[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 54d5856: [el-search] Include preceding comments in occur d
From: |
Michael Heerdegen |
Subject: |
[elpa] master 54d5856: [el-search] Include preceding comments in occur defun context |
Date: |
Sat, 12 Jan 2019 05:05:00 -0500 (EST) |
branch: master
commit 54d5856adf24ce089ab40dd7c88a7dac5c605745
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
[el-search] Include preceding comments in occur defun context
* packages/el-search/el-search.el (el-search-occur-get-defun-context):
Include preceding comments.
---
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 97b9552..27eceb0 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 54d5856: [el-search] Include preceding comments in occur defun context,
Michael Heerdegen <=