diff options
Diffstat (limited to 'hmm.el')
-rw-r--r-- | hmm.el | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -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) |