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

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

[elpa] scratch/mheerdegen-preview c88c4c1 27/33: WIP: Include leading co


From: Michael Heerdegen
Subject: [elpa] scratch/mheerdegen-preview c88c4c1 27/33: WIP: Include leading comments in occur defun context
Date: Wed, 24 Oct 2018 18:30:52 -0400 (EDT)

branch: scratch/mheerdegen-preview
commit c88c4c1c0fddd707a8fe61cc30c10ac5b3258aca
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    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 1780c6d..40ff112 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)))



reply via email to

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