]> code.delx.au - gnu-emacs-elpa/commitdiff
Merge pull request #164 from holomorph/tooltip-search
authorDmitry Gutov <dgutov@yandex.ru>
Mon, 4 Aug 2014 23:05:56 +0000 (03:05 +0400)
committerDmitry Gutov <dgutov@yandex.ru>
Mon, 4 Aug 2014 23:05:56 +0000 (03:05 +0400)
Assign a face for the tooltip search string

company.el

index 276e0b4b1a5e59223d5c8c6e03d3ca22dadfa008..7d5ec8cad41d247b1a4cd6e65c8e0a2fbce10ec3 100644 (file)
@@ -117,6 +117,10 @@ buffer-local wherever it is set."
     (t (:background "green")))
   "Face used for the selection in the tooltip.")
 
+(defface company-tooltip-search
+  '((default :inherit company-tooltip-selection))
+  "Face used for the search string in the tooltip.")
+
 (defface company-tooltip-mouse
   '((default :inherit highlight))
   "Face used for the tooltip item under the mouse.")
@@ -2156,7 +2160,7 @@ If SHOW-VERSION is non-nil, show the version in the echo area."
                              (length company-prefix)))
           (let ((beg (+ margin (match-beginning 0)))
                 (end (+ margin (match-end 0))))
-            (add-text-properties beg end '(face company-tooltip-selection)
+            (add-text-properties beg end '(face company-tooltip-search)
                                  line)
             (when (< beg common)
               (add-text-properties beg common