branch: master commit a86cf29abfc00cde2537d5495182954d242b4ff7 Author: Michael Heerdegen <michael_heerde...@web.de> Commit: Michael Heerdegen <michael_heerde...@web.de>
Declare any search started with `el-search-this-sexp' single-buffer * el-search/el-search.el (el-search-this-sexp): Do it. --- packages/el-search/el-search.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el index 40517cc..348b124 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.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)))