[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/company 053c50d 30/46: Merge pull request #1023 from hl
From: |
Dmitry Gutov |
Subject: |
[elpa] externals/company 053c50d 30/46: Merge pull request #1023 from hlissner/fix-face-helper |
Date: |
Wed, 30 Dec 2020 18:33:08 -0500 (EST) |
branch: externals/company
commit 053c50d376e65e189a6b170d2fedc7d552a73907
Merge: 8c22b58 18b7b79
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: GitHub <noreply@github.com>
Merge pull request #1023 from hlissner/fix-face-helper
Fix company--face-attribute helper
---
company.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/company.el b/company.el
index b4e40c2..fb39fa8 100644
--- a/company.el
+++ b/company.el
@@ -2750,13 +2750,17 @@ If SHOW-VERSION is non-nil, show the version in the
echo area."
;; 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))))
+ (let ((remap (cdr (assq face face-remapping-alist))))
(if remap
- (company--face-attribute remap attr)
+ (company--face-attribute
+ ;; Faces can be remapped to their unremapped selves, but that
+ ;; would cause us infinite recursion.
+ (if (listp remap) (remq face remap) remap)
+ attr)
(face-attribute face attr nil t))))
((keywordp (car-safe face))
(or (plist-get face attr)
- (company--face-attribute (plist-get face :inherit))))
+ (company--face-attribute (plist-get face :inherit) attr)))
((listp face)
(cl-find-if #'stringp
(mapcar (lambda (f) (company--face-attribute f attr))
- [elpa] externals/company 0edc87d 23/46: Fix a couple of warnings, (continued)
- [elpa] externals/company 0edc87d 23/46: Fix a couple of warnings, Dmitry Gutov, 2020/12/30
- [elpa] externals/company c4d205a 31/46: Fix company--face-attribute for text-scaled faces, Dmitry Gutov, 2020/12/30
- [elpa] externals/company 7c25cf4 34/46: company-set-selection: adding offset internally instead of via caller, Dmitry Gutov, 2020/12/30
- [elpa] externals/company e6fa6c0 40/46: Add connection-local caching for gtags executable., Dmitry Gutov, 2020/12/30
- [elpa] externals/company 01f5d10 38/46: Fix company-gtags to work with tramp and multiple locations., Dmitry Gutov, 2020/12/30
- [elpa] externals/company 056d19d 42/46: Rename a function and add NEWS entry, Dmitry Gutov, 2020/12/30
- [elpa] externals/company 3644a59 45/46: company-gtags--executable: Make sure to return the detected value, Dmitry Gutov, 2020/12/30
- [elpa] externals/company fb9db07 19/46: Merge pull request #999 from kiennq/bug/company-selection-default, Dmitry Gutov, 2020/12/30
- [elpa] externals/company 569ff3e 20/46: Copy edits, Dmitry Gutov, 2020/12/30
- [elpa] externals/company 2de0d9a 21/46: More copy edits, Dmitry Gutov, 2020/12/30
- [elpa] externals/company 053c50d 30/46: Merge pull request #1023 from hlissner/fix-face-helper,
Dmitry Gutov <=
- [elpa] externals/company b16b236 32/46: Fall back to unremapped 'default face :background, Dmitry Gutov, 2020/12/30
- [elpa] externals/company 123b604 46/46: Merge branch 'master' of https://github.com/company-mode/company-mode into externals/company, Dmitry Gutov, 2020/12/30
- [elpa] externals/company dccd04b 44/46: company-gtags--fetch-tags: Revert an earlier change, Dmitry Gutov, 2020/12/30
- [elpa] externals/company 3a27fd9 43/46: company-gtags--executable: Don't create local values unnecessarily, Dmitry Gutov, 2020/12/30
- [elpa] externals/company d591282 25/46: Merge pull request #1009 from condy0919/cmake, Dmitry Gutov, 2020/12/30
- [elpa] externals/company 75acbc5 41/46: Merge pull request #1037 from Ergus/master, Dmitry Gutov, 2020/12/30