branch: elpa/helm
commit 22bcbe62b299cda752dcff9e40cc4d3df2c28163
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Fix pref arg with 'display in helm-kill-selection-and-quit #2743
---
helm-core.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index ac4f4598a2b..a463b3671a1 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -8121,13 +8121,13 @@ this variable."
(lambda (sel)
(kill-new sel)
;; Return nil to force `helm-mode--keyboard-quit'
- ;; in `helm-comp-read' otherwise the value "Saved to kill-ring: foo"
+ ;; in `helm-comp-read' otherwise the message itself
;; is used as exit value for `helm-comp-read'.
(prog1 nil (message "Saved to kill-ring: %s" sel) (sit-for 1)))
(format "%s" (helm-get-selection
nil (helm-acase helm-kill-real-or-display-selection
(real arg)
- (display 'noicon)))))))
+ (display (and (not arg) 'noicon))))))))
(put 'helm-kill-selection-and-quit 'helm-only t)
(defun helm-insert-or-copy (&optional arg)
