branch: elpa/helm
commit ad3e0664fb27e115aecf047f006d1490ff0a990c
Author: Binbin Ye <binbin...@mujin.co.jp>
Commit: Binbin Ye <binbin...@mujin.co.jp>
support case when `HIST` is `t` in completing-read
---
helm-mode.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/helm-mode.el b/helm-mode.el
index f87a4f382a..1ca0e7b1a8 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -883,8 +883,8 @@ that use `helm-comp-read'. See `helm-M-x' for example."
:history (and (symbolp input-history) input-history)
:buffer buffer))
(remove-hook 'helm-after-update-hook
'helm-comp-read--move-to-first-real-candidate))
- ;; If `history' is a symbol save it.
- (when (and result history (symbolp history))
+ ;; If `history' is a symbol save it. but when `history' is t, meaning
not to remember history.
+ (when (and result history (symbolp history) (not (eq history 't)))
(set history
;; RESULT may be a a string or a list of strings bug #2461.
(delete-dups (append (mapcar #'substring-no-properties
(helm-mklist result))
