scratch/emoji a0818f0 2/2: Use variable pitch transients

[Lars Ingebrigtsen]

branch: scratch/emoji
commit a0818f01a85bdd1f449700fad783358c04fc8271
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Use variable pitch transients
---
 lisp/play/emoji.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/play/emoji.el b/lisp/play/emoji.el
index f4ac36a..7849cc9 100644
--- a/lisp/play/emoji.el
+++ b/lisp/play/emoji.el
@@ -33,6 +33,7 @@
 (defun emoji-insert ()
   "Choose and insert an emoji glyph."
   (interactive)
+  (setq transient-use-variable-pitch t)
   ;; Remove debugging.
   (unless (and nil emoji--labels)
     (emoji--parse-labels)
@@ -180,10 +181,10 @@ We prefer the earliest unique letter."
   (let ((name (concat (car entry) " "))
         (children (emoji--flatten entry)))
     (cl-loop for i from 0 upto 20
-             while (< (length name) 10)
+             while (< (length name) 18)
              do (cl-loop for child in children
                          for char = (elt child i)
-                         while (< (length name) 10)
+                         while (< (length name) 18)
                          when char
                          do (setq name (concat name char))))
     (if (= (length name) 20)