[elpa] externals/company 2ca3e29abf: company-preview-show-at-point: Support completions containing newlines

[ELPA Syncer]

branch: externals/company
commit 2ca3e29abf87392714bc2b26e50e1c0f4b9f4e2c
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    company-preview-show-at-point: Support completions containing newlines
    
    Fixes #1367
---
 company.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/company.el b/company.el
index 11f8b06767..9e98f6a90f 100644
--- a/company.el
+++ b/company.el
@@ -3741,6 +3741,10 @@ Delay is determined by `company-tooltip-idle-delay'."
                          (company-strip-prefix completion)
                        completion))
 
+    (when (string-prefix-p "\n" completion)
+      (setq completion (concat (propertize " " 'face 'company-preview) "\n"
+                               (substring completion 1))))
+
     (and (equal pos (point))
          (not (equal completion ""))
          (add-text-properties 0 1 '(cursor 1) completion))