diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-12-09 08:09:45 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-12-09 08:09:45 +0100 |
commit | bf1c31250bdc7ffe25bd9b66a57f1944f82a2d03 (patch) | |
tree | 12796c90393d4d9a29ee24ff4d2a56612525a1b0 /helm-types.el | |
parent | 42741b7eef689655fe46b1a744e77377000aaa8a (diff) |
Fix helm-type-command to be used in helm-M-x
* helm-types.el (helm-type-command-actions): Do it.
(helm--setup-source): Do it.
Diffstat (limited to 'helm-types.el')
-rw-r--r-- | helm-types.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/helm-types.el b/helm-types.el index 9bebe4d5..67d7305e 100644 --- a/helm-types.el +++ b/helm-types.el @@ -257,7 +257,7 @@ (defcustom helm-type-command-actions (append (helm-make-actions - "Call interactively" 'helm-call-interactively) + "Execute command" 'helm-M-x-execute-command) (symbol-value (helm-actions-from-type-function))) "Default actions for type command." @@ -269,8 +269,10 @@ (defmethod helm--setup-source :before ((source helm-type-command)) (setf (slot-value source 'action) 'helm-type-command-actions) (setf (slot-value source 'coerce) 'helm-symbolify) - (setf (slot-value source 'persistent-action) 'describe-function) - (setf (slot-value source 'group) 'helm-command)) + (setf (slot-value source 'persistent-action) 'helm-M-x-persistent-action) + (setf (slot-value source 'persistent-help) "Describe this command") + (setf (slot-value source 'group) 'helm-command) + (setf (slot-value source 'keymap) helm-M-x-map)) ;; Timers (defclass helm-type-timers (helm-source) () |