emacs-emojify

commit de65563dc4fe63fb50620a80bd3d20dd93ccc36c
parent 02dcd2fedfe1df8267d177459f407b7eacb1bd7d
Author: Iqbal Ansari <iqbalansari02@yahoo.com>
Date:   Tue, 27 Sep 2016 20:53:13 +0530

Make uncovering of emojis on isearch configurable

Diffstat:
M
emojify.el
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/emojify.el b/emojify.el
@@ -544,6 +544,9 @@ Does nothing if the value is anything else."
                 (const :tag "Uncover (undisplay) the underlying emoji text" uncover))
   :group 'emojify)
 
+(defcustom emojify-reveal-on-isearch t
+  "Should underlying emoji be displayed when point enters emoji while in isearch mode.")
+
 (defcustom emojify-show-help t
   "If non-nil the underlying text is displayed in a popup when mouse moves over it."
   :type 'boolean
@@ -562,7 +565,7 @@ Does nothing if the value is anything else."
         ((functionp 'emojify-point-entered-behaviour)
          (funcall emojify-point-entered-behaviour beginning end)))
 
-  (when isearch-mode
+  (when (and isearch-mode emojify-reveal-on-isearch)
     (put-text-property beginning end 'display nil)))
 
 (defun emojify-on-emoji-exit (beginning end)