diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-12-31 07:14:47 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-12-31 07:14:47 +0100 |
commit | 1f2733ecab5c09934edf2b167af2cbbf9f210a8c (patch) | |
tree | 90b4e439ea294f644d79e5dbf60d176fbc7cab9d /helm-misc.el | |
parent | 4d8fea39620afaf20af3a36643738d367be3b41a (diff) |
Fix let-binding in minibuffer-history to allow recursive-minibuffers (#1655).
* helm-misc.el (helm-minibuffer-history): Use let*.
Diffstat (limited to 'helm-misc.el')
-rw-r--r-- | helm-misc.el | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/helm-misc.el b/helm-misc.el index 338b226c..d4fcfb1a 100644 --- a/helm-misc.el +++ b/helm-misc.el @@ -316,23 +316,23 @@ Default action change TZ environment variable locally to emacs." (interactive) (cl-assert (minibuffer-window-active-p (selected-window)) nil "Error: Attempt to use minibuffer history outside a minibuffer") - (let ((enable-recursive-minibuffers t) - (elm (helm-comp-read "pattern: " - (cl-loop for i in - (symbol-value minibuffer-history-variable) - unless (string= "" i) collect i into history - finally return - (if (consp (car history)) - (mapcar 'prin1-to-string history) - history)) - :header-name - (lambda (name) - (format "%s (%s)" name minibuffer-history-variable)) - :buffer "*helm minibuffer-history*" - :must-match helm-minibuffer-history-must-match - :multiline t - :keymap helm-minibuffer-history-map - :allow-nest t))) + (let* ((enable-recursive-minibuffers t) + (elm (helm-comp-read "pattern: " + (cl-loop for i in + (symbol-value minibuffer-history-variable) + unless (string= "" i) collect i into history + finally return + (if (consp (car history)) + (mapcar 'prin1-to-string history) + history)) + :header-name + (lambda (name) + (format "%s (%s)" name minibuffer-history-variable)) + :buffer "*helm minibuffer-history*" + :must-match helm-minibuffer-history-must-match + :multiline t + :keymap helm-minibuffer-history-map + :allow-nest t))) (delete-minibuffer-contents) (insert elm))) |