[elpa] master 6c6f02e: Make the some-context function include an opening backquote

[Michael Heerdegen]

branch: master
commit 6c6f02e08d809612c1cc3151ebcf0b5a4999295e
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    Make the some-context function include an opening backquote
    
    When choosing `el-search-occur-get-some-context' as
    `el-search-get-occur-context-function', when the calculated context
    follows a backquote, also include that backquote.
    
    This also works around one symptom of Emacs bug#29857.
    
    * el-search/el-search.el (el-search-occur-get-some-context): Do it.
---
 packages/el-search/el-search.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 088c869..6ea435f 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 1.4.0.11
+;; Version: 1.4.0.12
 ;; Package-Requires: ((emacs "25") (stream "2.2.4"))
 
 
@@ -2504,7 +2504,9 @@ Prompt for a new pattern and revert."
                         (setq end (point))))
                ((or (pred atom) `(,(pred atom))) t)
                ((guard (< (- end start) 100))    t)))))
-        (try-go-upwards (lambda (pos) (condition-case nil (scan-lists pos -1 1)
+        (try-go-upwards (lambda (pos) (condition-case nil
+                                     (when-let ((pos (scan-lists pos -1 1)))
+                                       (if (eq (char-before pos) ?`) (1- pos) 
pos))
                                    (scan-error nil)))))
     (when (funcall need-more-context-p match-beg)
       (setq context-beg (funcall try-go-upwards match-beg))