[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 18683a6 09/22: fix el-search-hl-post-command-fun auto-remo
From: |
Michael Heerdegen |
Subject: |
[elpa] master 18683a6 09/22: fix el-search-hl-post-command-fun auto-removal |
Date: |
Sat, 31 Oct 2015 18:41:37 +0000 |
branch: master
commit 18683a681c1ffd1e4665d68c5cef3e8b6349fc76
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
fix el-search-hl-post-command-fun auto-removal
---
packages/el-search/el-search.el | 19 ++++++++++---------
1 files changed, 10 insertions(+), 9 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index d51f61b..e7786c1 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -402,21 +402,22 @@ 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))
+ (add-hook 'post-command-hook (el-search-hl-post-command-fun
(current-buffer)) 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)
- (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 #'el-search-hl-post-command-fun
t))))))
+ (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))
;;;; Core functions
- [elpa] master 0da07c0 06/22: some doc tweaks, (continued)
- [elpa] master 0da07c0 06/22: some doc tweaks, Michael Heerdegen, 2015/10/31
- [elpa] master a621d16 04/22: remove not so useful message of how to repeat search, Michael Heerdegen, 2015/10/31
- [elpa] master 3459015 03/22: allow search wrapping, Michael Heerdegen, 2015/10/31
- [elpa] master ef3e3a0 07/22: rename a local variable, Michael Heerdegen, 2015/10/31
- [elpa] master d020482 05/22: change a TODO entry; no code change, Michael Heerdegen, 2015/10/31
- [elpa] master 113e0fd 11/22: fix whitespace, Michael Heerdegen, 2015/10/31
- [elpa] master 7d645e6 18/22: fix whitespace, Michael Heerdegen, 2015/10/31
- [elpa] master 61c3b71 13/22: require cl-lib only at compile time, Michael Heerdegen, 2015/10/31
- [elpa] master 1a1a49d 17/22: spelling fixes, Michael Heerdegen, 2015/10/31
- [elpa] master c546111 14/22: on-screen: bump version, Michael Heerdegen, 2015/10/31
- [elpa] master 18683a6 09/22: fix el-search-hl-post-command-fun auto-removal,
Michael Heerdegen <=
- [elpa] master 7371526 10/22: document el-search--do-subsexps, Michael Heerdegen, 2015/10/31
- [elpa] master 96959c6 19/22: improve docs; new: el-search-defpattern; add some pattern types, Michael Heerdegen, 2015/10/31
- [elpa] master 6319bbd 20/22: remove search wrapping functionality, Michael Heerdegen, 2015/10/31
- [elpa] master 88d869d 12/22: new package: on-screen, Michael Heerdegen, 2015/10/31
- [elpa] master 02add7a 15/22: give feedback in the echo area again, Michael Heerdegen, 2015/10/31
- [elpa] master 4e3d672 21/22: simplify el-search-hl-post-command-fun, Michael Heerdegen, 2015/10/31
- [elpa] master df283ac 16/22: el-search--read-pattern: fix default(s), Michael Heerdegen, 2015/10/31
- [elpa] master a91ed2f 22/22: el-search: bump version to 0.1, Michael Heerdegen, 2015/10/31