Fixes #107 Bad Interaction Between Highlighting Line

and Match Highlighting
This commit is contained in:
syl20bnr 2014-11-13 20:26:51 -05:00
parent 534ca50954
commit 969f629e93

View file

@ -66,6 +66,7 @@
helm-projectile helm-projectile
helm-swoop helm-swoop
helm-themes helm-themes
highlight
hl-anything hl-anything
hy-mode hy-mode
ido-vertical-mode ido-vertical-mode
@ -283,6 +284,20 @@ determine the state to enable when escaping from the insert state.")
(use-package evil-search-highlight-persist (use-package evil-search-highlight-persist
:init :init
(global-evil-search-highlight-persist) (global-evil-search-highlight-persist)
;; temporary hack, waiting for the maintainer to merge the fix
(require 'highlight)
(defun evil-search-highlight-persist-remove-all ()
(interactive)
(hlt-unhighlight-region-in-buffers (list (current-buffer))))
(defun evil-search-highlight-persist-mark ()
(let ((hlt-use-overlays-flag t)
(hlt-last-face 'evil-search-highlight-persist-highlight-face))
(hlt-highlight-regexp-region-in-buffers
(car-safe (if isearch-regexp
regexp-search-ring
search-ring))
(list (current-buffer)))))
;; end of temporary hack
(evil-leader/set-key "sc" 'evil-search-highlight-persist-remove-all) (evil-leader/set-key "sc" 'evil-search-highlight-persist-remove-all)
(evil-ex-define-cmd "noh" 'evil-search-highlight-persist-remove-all)) (evil-ex-define-cmd "noh" 'evil-search-highlight-persist-remove-all))
;; add a lisp state ;; add a lisp state