[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 4e3d672 21/22: simplify el-search-hl-post-command-fun
From: |
Michael Heerdegen |
Subject: |
[elpa] master 4e3d672 21/22: simplify el-search-hl-post-command-fun |
Date: |
Sat, 31 Oct 2015 18:41:43 +0000 |
branch: master
commit 4e3d6727b81a3ff15b653070e599e36e4a8182f0
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
simplify el-search-hl-post-command-fun
---
packages/el-search/el-search.el | 18 +++++++-----------
1 files changed, 7 insertions(+), 11 deletions(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index bf545ae..4dfb16b 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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] master 7d645e6 18/22: fix whitespace, (continued)
- [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, 2015/10/31
- [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 <=
- [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