From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Sat, 31 Oct 2015 18:34:30 +0000 (+0100)
Subject: simplify el-search-hl-post-command-fun
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/4e3d6727b81a3ff15b653070e599e36e4a8182f0

simplify el-search-hl-post-command-fun
---

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index bf545aee6..4dfb16b8f 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