[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] scratch/mheerdegen-preview 562b2db 18/32: WIP [el-search] Fix sea
From: |
Michael Heerdegen |
Subject: |
[elpa] scratch/mheerdegen-preview 562b2db 18/32: WIP [el-search] Fix search setup when occur flag bound |
Date: |
Sat, 20 Oct 2018 18:19:01 -0400 (EDT) |
branch: scratch/mheerdegen-preview
commit 562b2dbee8f88d8a1f678d2511242e2a84364795
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
WIP [el-search] Fix search setup when occur flag bound
---
packages/el-search/el-search.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index d518d1a..f60879b 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -2033,14 +2033,16 @@ any case."
(setq el-search-use-transient-map t))
(defun el-search-setup-search-1 (pattern get-buffer-stream &optional
from-here setup-function)
- (el-search--set-search-origin-maybe)
- (setq el-search--success nil)
+ (unless el-search-occur-flag
+ (el-search--set-search-origin-maybe)
+ (setq el-search--success nil))
(setq el-search--current-search
(el-search-make-search pattern get-buffer-stream))
(when setup-function (funcall setup-function el-search--current-search))
(ring-insert el-search-history el-search--current-search)
(when from-here (setq el-search--temp-buffer-flag nil))
- (el-search-prefix-key-maybe-set-transient-map))
+ (unless el-search-occur-flag
+ (el-search-prefix-key-maybe-set-transient-map)))
(defun el-search-setup-search (pattern get-buffer-stream &optional
setup-function from-here)
"Create and start a new el-search.
- [elpa] branch scratch/mheerdegen-preview created (now 009dc4d), Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview d91a3bb 02/32: WIP: Add diverse "sloppy" pattern types, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 9fce13a 05/32: WIP: New :key arg for "filename" and new pattern types "file" and "dir", Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview b8542ca 04/32: WIP: New package "gnus-article-notes", Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 73bca9f 12/32: WIP [el-search] Fix more "redundant _ pattern" cases, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview d27e751 19/32: WIP [el-search] Adjust prev/next match commands for search and occur, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 562b2db 18/32: WIP [el-search] Fix search setup when occur flag bound,
Michael Heerdegen <=
- [elpa] scratch/mheerdegen-preview 1f46601 15/32: WIP: Additions to "Mb hints", Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview a8483cd 22/32: WIP: [el-search] Fine tune separator for splicing replace, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 5bdc539 27/32: WIP: Include leading comments in occur defun context, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview f11f566 31/32: WIP: Small fix in el-search--changed-files-in-repo, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview fc2c159 29/32: WIP: Fix C-A and C-J after finished single-buffer search, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview d6a3158 01/32: WIP: [el-search] Fix nested match issues in *El Occur*, Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 74cc15a 08/32: WIP: New command 'el-search-repository', Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview e43d95b 10/32: WIP [el-search] Implement 'el-search-keyboard-quit', Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 163a7c7 03/32: WIP: Add package "sscell", Michael Heerdegen, 2018/10/20
- [elpa] scratch/mheerdegen-preview 216fd06 07/32: WIP: New file el-search/el-search-pp.el, Michael Heerdegen, 2018/10/20