]> code.delx.au - gnu-emacs-elpa/commitdiff
company--numbered-line: span tooltip face to the margins
authorDmitry Gutov <dgutov@yandex.ru>
Thu, 23 Jan 2014 11:22:50 +0000 (13:22 +0200)
committerDmitry Gutov <dgutov@yandex.ru>
Thu, 23 Jan 2014 11:22:50 +0000 (13:22 +0200)
company.el

index 89e02567a9c78472682ac521a6c27472688e9675..4dd7b7427e050bac33046792a7b6490e2cb1f33c 100644 (file)
@@ -1862,10 +1862,10 @@ Example: \(company-begin-with '\(\"foo\" \"foobar\" \"foobarbaz\"\)\)"
     (setq lines (nreverse new))))
 
 (defun company--numbered-line (text width)
-  (concat (company-space-string company-tooltip-margin)
-          (propertize (company-safe-substring text 0 width)
-                      'face 'company-tooltip)
-          (company-space-string company-tooltip-margin)))
+  (propertize (concat (company-space-string company-tooltip-margin)
+                      (company-safe-substring text 0 width)
+                      (company-space-string company-tooltip-margin))
+   'face 'company-tooltip))
 
 ;; show