[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/company 66840bd 3/3: Use t instead of 'misc'
From: |
ELPA Syncer |
Subject: |
[elpa] externals/company 66840bd 3/3: Use t instead of 'misc' |
Date: |
Fri, 2 Apr 2021 18:57:07 -0400 (EDT) |
branch: externals/company
commit 66840bd8155a5754dcae51d9bc91594d08c40d3a
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>
Use t instead of 'misc'
---
company.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/company.el b/company.el
index 94c3e97..235f36a 100644
--- a/company.el
+++ b/company.el
@@ -1383,7 +1383,6 @@ end of the match."
(keyword . "symbol-keyword.svg")
(method . "symbol-method.svg")
(function . "symbol-method.svg")
- (misc . "symbol-misc.svg")
(module . "symbol-namespace.svg")
(numeric . "symbol-numeric.svg")
(operator . "symbol-operator.svg")
@@ -1395,7 +1394,8 @@ end of the match."
(struct . "symbol-structure.svg")
(text . "symbol-key.svg")
(value . "symbol-enumerator.svg")
- (variable . "symbol-variable.svg")))
+ (variable . "symbol-variable.svg")
+ (t . "symbol-misc.svg")))
(defconst company-icons-root
(file-name-as-directory
@@ -1413,7 +1413,8 @@ end of the match."
(if-let ((ws (window-system))
(candidate candidate)
(kind (company-call-backend 'kind candidate))
- (icon-file (alist-get kind icon-mapping)))
+ (icon-file (or (alist-get kind icon-mapping)
+ (alist-get t icon-mapping))))
(let* ((bkg (face-attribute (if selected
'company-tooltip-selection
'company-tooltip)
@@ -1471,7 +1472,6 @@ end of the match."
(keyword . "ν")
(method . "λ")
(function . "ƒ")
- (misc . "ξ")
(module . "Ο")
(numeric . "π")
(operator . "⊙")
@@ -1483,7 +1483,8 @@ end of the match."
(struct . "Χ")
(text . "μ")
(value . "Ζ")
- (variable . "ѱ"))
+ (variable . "ѱ")
+ (t . "ξ"))
"Mapping of the text icons."
:type 'list)
@@ -1495,7 +1496,8 @@ end of the match."
"Margin function which returns unicode icons."
(when-let ((candidate candidate)
(kind (company-call-backend 'kind candidate))
- (icon (alist-get kind company-text-icons-mapping)))
+ (icon (or (alist-get kind company-text-icons-mapping)
+ (alist-get t company-text-icons-mapping))))
(format company-text-icons-format icon)))
(defcustom company-dot-icons-format "●"