commit 91fd9e4c0df40a0a7b32e3f86087b727c300070f parent df5f531d2932f2d0324b84f554d3b8c6bc65a302 Author: Iqbal Ansari <iqbal.ansari@ignitesol.com> Date: Mon, 2 Nov 2015 18:52:15 +0530 Add workaround for isearch bug See #7d00803 The test does not work for yet though :( Diffstat:
| M | emojify.el | | | 9 | +++++++++ |
1 file changed, 9 insertions(+), 0 deletions(-)
diff --git a/emojify.el b/emojify.el @@ -577,6 +577,15 @@ of `after-change-functions' to understand the meaning of BEG, END and LEN." (ad-activate #'text-scale-increase) +;; TODO: Backport to defadvice +(defun emojify-redisplay-after-isearch-left (orig &rest args) + (let ((start (line-beginning-position)) + (end (line-end-position))) + (prog1 (apply orig args) + (emojify-redisplay-emojis start end)))) + +(advice-add 'isearch-repeat :around #'emojify-redisplay-after-isearch-left) + (defun emojify-turn-on-emojify-mode () "Turn on `emojify-mode' in current buffer."