[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/el-search 112612e 041/332: simplify el-search-hl-post-c
From: |
Stefan Monnier |
Subject: |
[elpa] externals/el-search 112612e 041/332: simplify el-search-hl-post-command-fun |
Date: |
Tue, 1 Dec 2020 15:48:07 -0500 (EST) |
branch: externals/el-search
commit 112612ed2a427feb04f303efe5c3012129642931
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>
simplify el-search-hl-post-command-fun
---
el-search.el | 18 +++++++-----------
1 file changed, 7 insertions(+), 11 deletions(-)
diff --git a/el-search.el b/el-search.el
index bf545ae..4dfb16b 100644
--- a/el-search.el
+++ b/el-search.el
@@ -561,22 +561,18 @@ return nil (no error)."
(apply #'move-overlay el-search-hl-overlay bounds)
(overlay-put (setq el-search-hl-overlay (apply #'make-overlay bounds))
'face 'el-search-match)))
- (add-hook 'post-command-hook (el-search-hl-post-command-fun
(current-buffer)) t t))
+ (add-hook 'post-command-hook #'el-search-hl-post-command-fun t t))
(defun el-search-hl-remove ()
(when (overlayp el-search-hl-overlay)
(delete-overlay el-search-hl-overlay)))
-(defun el-search-hl-post-command-fun (buf)
- (letrec ((fun (lambda ()
- (when (buffer-live-p buf)
- (unless (or el-search-keep-hl
- (eq this-command 'el-search-query-replace)
- (eq this-command 'el-search-pattern))
- (with-current-buffer buf
- (el-search-hl-remove)
- (remove-hook 'post-command-hook fun t)))))))
- fun))
+(defun el-search-hl-post-command-fun ()
+ (unless (or el-search-keep-hl
+ (eq this-command 'el-search-query-replace)
+ (eq this-command 'el-search-pattern))
+ (el-search-hl-remove)
+ (remove-hook 'post-command-hook 'el-search-hl-post-command-fun t)))
;;;; Core functions
- [elpa] externals/el-search 80ff841 085/332: Make el-search-pattern accept an optional NO-ERROR arg, (continued)
- [elpa] externals/el-search 80ff841 085/332: Make el-search-pattern accept an optional NO-ERROR arg, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 61c39c3 098/332: el-search version 0.2, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e9c3ed5 032/332: fix el-search-hl-post-command-fun auto-removal, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search a2c97a1 009/332: el-search: add autoload cookies, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 7b1b6dd 013/332: change default of el-search-this-expression-identifier, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 9463ad2 025/332: arrange we can use `call-interactively' when coming from isearch, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 29c34cc 027/332: remove not so useful message of how to repeat search, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 816e675 033/332: document el-search--do-subsexps, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 1bbf5d9 035/332: give feedback in the echo area again, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 93079f5 042/332: el-search: bump version to 0.1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 112612e 041/332: simplify el-search-hl-post-command-fun,
Stefan Monnier <=
- [elpa] externals/el-search b4abe87 045/332: add a to do, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 20f670a 048/332: bump version to 0.1.1, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search bff759c 047/332: el-search-query-replace: add s (toggle splicing) and ? (help) keys, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 0e71413 049/332: el-search--matcher: refine when to warn or error, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search aa4bd02 051/332: el-search: new pattern type `append', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search d97f8fe 052/332: remove example using `message' in a guard, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search e81afef 054/332: factor out `el-search--search-pattern-1', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 2b4c194 055/332: remove annoying message on how to repeat el-search, Stefan Monnier, 2020/12/01
- [elpa] externals/el-search 30fef15 056/332: use more newlines in `el-search--make-docstring', Stefan Monnier, 2020/12/01
- [elpa] externals/el-search c090afe 057/332: el-search: new pattern type `contains', Stefan Monnier, 2020/12/01