diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-07-27 19:08:26 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-07-27 19:08:26 +0200 |
commit | 0c98356002c3492dd6c47125f93f13b799c84cc0 (patch) | |
tree | be1063ddddfcdd569095ca19304e3b829b22c4d4 /helm-command.el | |
parent | 1efd5e8d2b2ba02876637200597db8d949b3010c (diff) |
Check in elm of extended-command-history is non-nil (#1114).
* helm-command.el (helm-M-x-read-extended-command): Do it, just to be safe.
Diffstat (limited to 'helm-command.el')
-rw-r--r-- | helm-command.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/helm-command.el b/helm-command.el index 4da2399d..34565c62 100644 --- a/helm-command.el +++ b/helm-command.el @@ -193,10 +193,10 @@ than the default which is OBARRAY." (setq help-cand candidate)))) (tm (run-at-time 1 0.1 'helm-M-x--notify-prefix-arg))) (setq extended-command-history - (cl-loop for i in extended-command-history - when (commandp (intern i)) - do (set-text-properties 0 (length i) nil i) - and collect i)) + (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)) (unwind-protect (let ((msg "Error: Specifying a prefix arg before calling `helm-M-x'")) (when current-prefix-arg |