[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master a86cf29: Declare any search started with `el-search-this-s
From: |
Michael Heerdegen |
Subject: |
[elpa] master a86cf29: Declare any search started with `el-search-this-sexp' single-buffer |
Date: |
Mon, 8 Jan 2018 11:17:55 -0500 (EST) |
branch: master
commit a86cf29abfc00cde2537d5495182954d242b4ff7
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master a86cf29: Declare any search started with `el-search-this-sexp' single-buffer,
Michael Heerdegen <=