emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master f932619 25/29: Merge pull request #656 from cpitclaudel/65


From: Dmitry Gutov
Subject: [elpa] master f932619 25/29: Merge pull request #656 from cpitclaudel/651-truncate-echo
Date: Tue, 28 Mar 2017 20:50:37 -0400 (EDT)

branch: master
commit f9326198b538b5a2584bd469bdd45fac6374c173
Merge: ce42fcf f9c9e85
Author: Dmitry Gutov <address@hidden>
Commit: GitHub <address@hidden>

    Merge pull request #656 from cpitclaudel/651-truncate-echo
    
    Bind message-truncate-lines around call to message in company-echo-show
---
 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 ""))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]