[elpa] externals/el-search b88b65a 204/332: Declare any search started with `el-search-this-sexp' single-buffer

[Stefan Monnier]

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

    Declare any search started with `el-search-this-sexp' single-buffer
    
    * el-search/el-search.el (el-search-this-sexp): Do it.
---
 el-search.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/el-search.el b/el-search.el
index 40517cc..348b124 100644
--- a/el-search.el
+++ b/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 1.4.0.16
+;; Version: 1.4.0.17
 ;; Package-Requires: ((emacs "25") (stream "2.2.4"))
 
 
@@ -2314,7 +2314,8 @@ Use the normal search commands to seize the search."
      `',sexp
      (let ((current-buffer (current-buffer)))
        (lambda () (stream (list current-buffer))))
-     'from-here)
+     'from-here
+     (lambda (search) (setf (alist-get 'is-single-buffer 
(el-search-object-properties search)) t)))
     (el-search--next-buffer el-search--current-search)
     (setf (el-search-head-position (el-search-object-head 
el-search--current-search))
           (copy-marker (point)))