[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ef-themes 67e2ad03e1 2/3: Add support for 'scroll-bar'
From: |
ELPA Syncer |
Subject: |
[elpa] externals/ef-themes 67e2ad03e1 2/3: Add support for 'scroll-bar' face |
Date: |
Fri, 31 Mar 2023 04:57:47 -0400 (EDT) |
branch: externals/ef-themes
commit 67e2ad03e16f70682a5e2a40b9dd8d8697e56ef7
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Add support for 'scroll-bar' face
This is used by Emacs when it is compilled to use the Lucid toolkit.
Maybe also in other cases. It applies to the 'scroll-bar-mode'
---
ef-themes.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/ef-themes.el b/ef-themes.el
index b0a57d9d69..64ea769c18 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -820,6 +820,7 @@ Optional prefix argument MAPPINGS has the same meaning as
for
`(italic ((,c :slant italic)))
`(menu ((,c :background ,bg-dim :foreground ,fg-main)))
`(region ((,c ,@(ef-themes--region bg-region bg-alt bg-region-intense
bg-active fg-intense))))
+ `(scroll-bar ((,c :background ,bg-dim :foreground ,fg-dim)))
`(vertical-border ((,c :foreground ,border)))
;;;;; all other basic faces
`(button ((,c :foreground ,link :underline ,border)))