diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-06-24 07:04:18 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-06-24 07:04:18 +0200 |
| commit | 4006c8a97943e99a56b4549a52f4568992822783 (patch) | |
| tree | c629e455c6ad59456d10db92a22ee864b424f98a /helm-command.el | |
| parent | 4cfb03161a7849be00c9f1317046b38f0676084b (diff) | |
Minor fixes for helm-M-x.
* helm-command.el (helm-M-x-map): Don't quote nil (typo).
(helm-M-x-universal-argument): Add docstring and helm-only prop.
Diffstat (limited to 'helm-command.el')
| -rw-r--r-- | helm-command.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/helm-command.el b/helm-command.el index 85e93a1d..3eafc593 100644 --- a/helm-command.el +++ b/helm-command.el @@ -163,11 +163,12 @@ fuzzy matching is running its own sort function with a different algorithm." (defvar helm-M-x-map (let ((map (make-sparse-keymap))) (set-keymap-parent map helm-comp-read-map) - (define-key map (kbd "C-u") 'nil) + (define-key map (kbd "C-u") nil) (define-key map (kbd "C-u") 'helm-M-x-universal-argument) map)) (defun helm-M-x-universal-argument () + "Same as `universal-argument' but for `helm-M-x'." (interactive) (if helm-M-x-prefix-argument (progn (setq helm-M-x-prefix-argument nil) @@ -179,6 +180,7 @@ fuzzy matching is running its own sort function with a different algorithm." (message "Initial prefix arg disabled")) (setq prefix-arg (list 4)) (universal-argument--mode))) +(put 'helm-M-x-universal-argument 'helm-only t) (defun helm-M-x-read-extended-command (&optional collection history) "Read command name to invoke in `helm-M-x'. |