scratch/emoji 8bbe392: Rename commands

[Lars Ingebrigtsen]

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

    Rename commands
---
 lisp/play/emoji.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/play/emoji.el b/lisp/play/emoji.el
index 3f99675..a12de0e 100644
--- a/lisp/play/emoji.el
+++ b/lisp/play/emoji.el
@@ -50,12 +50,12 @@ of a visual interface."
   (emoji--init)
   (if text
       (emoji--choose-emoji)
-    (funcall (intern "emoji-command-Emoji"))))
+    (funcall (intern "emoji--command-Emoji"))))
 
 (defvar emoji--insert-buffer)
 
 ;;;###autoload
-(defun list-emojis ()
+(defun emoji-list ()
   "List emojis and insert the one that's selected.
 The character will be inserted into the buffer that was selected
 when the command was issued."
@@ -133,7 +133,7 @@ when the command was issued."
 
 (defun emoji--init ()
   ;; Remove debugging.
-  (unless (and nil emoji--labels)
+  (unless emoji--labels
     (setq emoji--derived (make-hash-table :test #'equal))
     (emoji--parse-labels)
     (emoji--parse-normal-derived)
@@ -293,7 +293,7 @@ when the command was issued."
   (unless alist
     (setq alist (cons "Emoji" emoji--labels)))
   (let* ((mname (pop alist))
-         (name (intern (format "emoji-command-%s" mname)))
+         (name (intern (format "emoji--command-%s" mname)))
          (has-subs (consp (cadr alist)))
          (layout
           (if has-subs