emacs-emojify

commit ee8059b26aece0c730d37c1188d80928009bd934
parent 42d8c8bfa68456d1e7b969ce855b2add22bf53e0
Author: Iqbal Ansari <iqbal.ansari@ignitesol.com>
Date:   Thu,  8 Sep 2016 12:50:25 +0530

Change large region check to an absolute number of 100000

Regions larger than these will not be emojified

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

1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/emojify.el b/emojify.el
@@ -1000,9 +1000,8 @@ BEG and END are the beginning and end of the region respectively"
 Redisplay emojis in the visible region if BEG and END are not specified"
   (let* ((area (emojify--get-relevant-region))
          (beg (or beg (car area)))
-         (end (or end (cdr area)))
-         (region-too-big (> end (+ beg (* 10 (- (window-end) (window-start)))))))
-    (unless region-too-big
+         (end (or end (cdr area))))
+    (unless (> (- end beg) 100000)
       (emojify-execute-ignoring-errors-unless-debug
         (emojify-undisplay-emojis-in-region beg end)
         (emojify-display-emojis-in-region beg end)))))
@@ -1426,8 +1425,8 @@ Borrowed from apropos.el"
                           (ht-get (cadr emoji) "name")
                           (ht-get (cadr emoji) "style")))
           (insert "\n"))
-          (goto-char (point-min))
-          (forward-line (1- 6))
+        (goto-char (point-min))
+        (forward-line (1- 6))
         (emojify-apropos-mode)
         (setq emojify--apropos-last-query (concat query " "))
         (setq-local line-spacing 7)))