branch: externals/company
commit 8c22b58a01ba5f571bff112fadfc51046473fcc1
Merge: 25f6a27 bbff400
Author: Dmitry Gutov <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #1020 from hlissner/fix-tooltip-bg
Fix tooltip background stretching to EOL
---
company.el | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/company.el b/company.el
index c6847b5..b4e40c2 100644
--- a/company.el
+++ b/company.el
@@ -2746,6 +2746,22 @@ If SHOW-VERSION is non-nil, show the version in the echo
area."
(cl-decf ww (1- (length (aref buffer-display-table ?\n)))))
ww))
+(defun company--face-attribute (face attr)
+ ;; Like `face-attribute', but accounts for faces that have been remapped to
+ ;; another face, a list of faces, or a face spec.
+ (cond ((symbolp face)
+ (let ((remap (cadr (assq face face-remapping-alist))))
+ (if remap
+ (company--face-attribute remap attr)
+ (face-attribute face attr nil t))))
+ ((keywordp (car-safe face))
+ (or (plist-get face attr)
+ (company--face-attribute (plist-get face :inherit))))
+ ((listp face)
+ (cl-find-if #'stringp
+ (mapcar (lambda (f) (company--face-attribute f attr))
+ face)))))
+
(defun company--replacement-string (lines old column nl &optional align-top)
(cl-decf column company-tooltip-margin)
@@ -2782,7 +2798,7 @@ If SHOW-VERSION is non-nil, show the version in the echo
area."
(let* ((nl-face (list
:extend t
:inverse-video nil
- :background (face-attribute 'default :background)))
+ :background (company--face-attribute 'default
:background)))
(str (apply #'concat
(when nl " \n")
(cl-mapcan
