scratch/emoji 7d49e5d: Fix init problem

[Lars Ingebrigtsen]

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

    Fix init problem
---
 lisp/play/emoji.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/play/emoji.el b/lisp/play/emoji.el
index 23b0a16..1f631fd 100644
--- a/lisp/play/emoji.el
+++ b/lisp/play/emoji.el
@@ -37,8 +37,8 @@
   (setq transient-use-variable-pitch t)
   ;; Remove debugging.
   (unless (and nil emoji--labels)
-    (emoji--parse-labels)
     (setq emoji--variants (make-hash-table :test #'equal))
+    (emoji--parse-labels)
     (emoji--parse-normal-variants)
     (emoji--parse-zwj-variants)
     (emoji--define-transient))
@@ -98,7 +98,7 @@
               (setf (gethash base table) (list glyph))
             ;; Add variants to the base.
             (unless (gethash base table)
-              (let ((char (gethash (upcase base) ucs-names)))
+              (let ((char (gethash (upcase base) (ucs-names))))
                 ;; FIXME -- These are things like "man lifting weights".
                 ;;(unless char (message "No %s in `ucs-names'" base))
                 (setf (gethash base table) (list char))))