diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-11-13 18:52:35 +0100 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-11-13 18:52:35 +0100 |
| commit | bc9774e512e049a69fb08a9d4433e00c0c593c3a (patch) | |
| tree | e6866781151abf39b86c99e2877bc59c4cee7b00 /helm-command.el | |
| parent | c22b1a51ed266d4d5bd83bb7129c1f294ab8c0b6 (diff) | |
Reverse history and add comments
Diffstat (limited to 'helm-command.el')
| -rw-r--r-- | helm-command.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/helm-command.el b/helm-command.el index 67db7533..abdeebcc 100644 --- a/helm-command.el +++ b/helm-command.el @@ -214,7 +214,10 @@ than the default which is OBARRAY." (cons (lambda () (setq current-prefix-arg nil)) helm-move-selection-after-hook)) (sources (and (eq helm-completion-style 'emacs) - `(,(helm-build-sync-source "Emacs Commands" + `(,(helm-build-sync-source "Emacs Commands history" + :candidates (lambda () (or history extended-command-history)) + :filtered-candidate-transformer 'helm-M-x-transformer-hist) + ,(helm-build-sync-source "Emacs Commands" :candidates (helm-dynamic-completion (or collection obarray) #'commandp) @@ -226,19 +229,19 @@ than the default which is OBARRAY." candidate 'helm-describe-function)) :persistent-help "Describe this command" :group 'helm-command - :keymap helm-M-x-map) - ,(helm-build-sync-source "Emacs Commands history" - :candidates (lambda () (or history extended-command-history)) - :filtered-candidate-transformer 'helm-M-x-transformer-hist))))) + :keymap helm-M-x-map))))) (setq extended-command-history (cl-loop for c in extended-command-history when (and c (commandp (intern c))) do (set-text-properties 0 (length c) nil c) and collect c)) + (when (and sources helm-M-x-reverse-history) + (setq sources (nreverse sources))) (unwind-protect (progn (setq current-prefix-arg nil) (if sources + ;; Use dynamic-matching and `completion-styles'. (helm :sources sources :prompt (concat (cond ((eq helm-M-x-prefix-argument '-) "- ") @@ -252,7 +255,7 @@ than the default which is OBARRAY." "M-x ") :buffer "*helm M-x*" :history 'helm-M-x-input-history) - + ;; Use helm matching through `helm-comp-read'. (helm-comp-read (concat (cond ((eq helm-M-x-prefix-argument '-) "- ") |