[elpa] master f9c9e85 24/29: Bind message-truncate-lines around call to message in company-echo-show

[Dmitry Gutov]

branch: master
commit f9c9e85c3d50c4816c2573cf6334a605c5a87106
Author: Clément Pit--Claudel <address@hidden>
Commit: Clément Pit--Claudel <address@hidden>

    Bind message-truncate-lines around call to message in company-echo-show
    
    Closes #652.
---
 company.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/company.el b/company.el
index 428a27b..7867823 100644
--- a/company.el
+++ b/company.el
@@ -3015,10 +3015,16 @@ Delay is determined by `company-tooltip-idle-delay'."
 
 (defvar company-echo-delay .01)
 
+(defcustom company-echo-truncate-lines t
+  "Whether frontend messages written to the echo area should be truncated."
+  :type 'boolean
+  :package-version '(company . "0.9.3"))
+
 (defun company-echo-show (&optional getter)
   (when getter
     (setq company-echo-last-msg (funcall getter)))
-  (let ((message-log-max nil))
+  (let ((message-log-max nil)
+        (message-truncate-lines company-echo-truncate-lines))
     (if company-echo-last-msg
         (message "%s" company-echo-last-msg)
       (message ""))))