fixing default display name

1 files changed, 6 insertions, 5 deletions

diff --git a/hmm.el b/hmm.el
index e5e40b0..72951d7 100644
--- a/hmm.el
+++ b/hmm.el
@@ -104,12 +104,13 @@
        (hmm-add-handler '(:command ,function-name) :query))))
 
 (defmacro hmm-define-external-handler (handler type)
-  (let* ((description (format "%s - %s"
-                              (plist-get handler :display-name)
+  (let* ((name (plist-get handler :name))
+         (display-name (or (plist-get handler :display-name)
+                           (format "%s" name)))
+         (description (format "%s - %s"
+                              display-name
                               (plist-get handler :description)))
-         (function-name (intern (format "hmm-external-%s"
-                                        (plist-get handler :name))))
-         (display-name (plist-get handler :display-name))
+         (function-name (intern (format "hmm-external-%s" name)))
          (external-command
           (mapcar (lambda (token)
                     (if (string-match "^%[fFuU]$" token)