[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/company fa1110d 1/2: Fix quick-access column formatting
From: |
ELPA Syncer |
Subject: |
[elpa] externals/company fa1110d 1/2: Fix quick-access column formatting |
Date: |
Wed, 2 Jun 2021 21:57:08 -0400 (EDT) |
branch: externals/company
commit fa1110d886dff3bed4e16a42d70c36833418e963
Author: Y. E <yugenekr@gmail.com>
Commit: Y. E <yugenekr@gmail.com>
Fix quick-access column formatting
Do not break column when company-tooltip-limit > 10.
---
company.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/company.el b/company.el
index 307b6df..290416e 100644
--- a/company.el
+++ b/company.el
@@ -2987,7 +2987,9 @@ If SHOW-VERSION is non-nil, show the version in the echo
area."
(company-safe-substring old (+ offset (length new)))))
(defun company--show-numbers (numbered)
- (format " %d" (mod numbered 10)))
+ (format " %s" (if (<= numbered 10)
+ (mod numbered 10)
+ " ")))
(defsubst company--window-height ()
(if (fboundp 'window-screen-lines)
@@ -3177,7 +3179,7 @@ If SHOW-VERSION is non-nil, show the version in the echo
area."
(left (nth 2 item))
(right (company-space-string company-tooltip-margin))
(width width))
- (when (< numbered 10)
+ (when company-show-numbers
(cl-decf width 2)
(cl-incf numbered)
(setf (if (eq company-show-numbers 'left) left right)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/company fa1110d 1/2: Fix quick-access column formatting,
ELPA Syncer <=