[elpa] master 4e6145c 168/348: counsel.el (counsel-yank-pop-separator): New defcustom

[Oleh Krehel]

branch: master
commit 4e6145cfb2942d41c0d63903ed7d70bfab889a5d
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-yank-pop-separator): New defcustom
    
    * counsel.el (counsel--yank-pop-format-function): Update.
    
    Fixes #660
---
 counsel.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index f2ec273..d091ce8 100644
--- a/counsel.el
+++ b/counsel.el
@@ -2052,6 +2052,11 @@ INITIAL-INPUT can be given as the initial minibuffer 
input."
           (mapconcat #'identity seq "\n")))
     (error str)))
 
+(defcustom counsel-yank-pop-separator "\n"
+  "Separator for the kill ring strings in `counsel-yank-pop'."
+  :group 'ivy
+  :type 'string)
+
 (defun counsel--yank-pop-format-function (cand-pairs)
   (ivy--format-function-generic
    (lambda (str)
@@ -2064,7 +2069,7 @@ INITIAL-INPUT can be given as the initial minibuffer 
input."
    (lambda (str)
      (counsel--yank-pop-truncate str))
    cand-pairs
-   "\n"))
+   counsel-yank-pop-separator))
 
 (defun counsel-yank-pop-action (s)
   "Insert S into the buffer, overwriting the previous yank."