commit 31af15d5af1be0f26070e60f8cf9e5af91a16386 parent 98157fee37f605d05c1af3b1598737e747f3dbb3 Author: Iqbal Ansari <iqbalansari02@yahoo.com> Date: Thu, 5 Nov 2015 20:10:37 +0530 Run `isearch-repeat` irrespective of whether `emojify-mode` is enabled in isearch advice Diffstat:
| M | emojify.el | | | 12 | ++++++------ |
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/emojify.el b/emojify.el @@ -588,12 +588,12 @@ of `after-change-functions' to understand the meaning of BEG, END and LEN." (defadvice isearch-repeat (around emojify-redisplay-after-isearch-left (&rest ignored)) "Advice `isearch-repeat' to run emojify's point motion hooks. -By default isearch disables point-motion hooks while repeating breaking -emojify's uncovering logic, this advice explicitly runs (only emojify's) point -motion hooks." - (when emojify-mode - (let ((old-pos (point))) - (prog1 ad-do-it +By default isearch disables point-motion hooks while repeating (see +`isearch-invisible') breaking emojify's uncovering logic, this advice explicitly +runs (only emojify's) point motion hooks." + (let ((old-pos (point))) + (prog1 ad-do-it + (when emojify-mode (let ((old-pos-props (text-properties-at old-pos)) (new-pos-props (text-properties-at (point)))) (unless (equal old-pos (point))