diff options
| author | Lars Ingebrigtsen | 2022-03-22 16:33:43 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-03-22 16:33:43 +0100 |
| commit | 1327593ce28f94c4ffe6bbf5fead8e820d3dbd41 (patch) | |
| tree | 803e45a7f32fc14ccc51b4dfe4977ad1ab25351c /lisp | |
| parent | 3054e70d76f71876c58497db04f55d7f413663d9 (diff) | |
| download | emacs-1327593ce28f94c4ffe6bbf5fead8e820d3dbd41.tar.gz emacs-1327593ce28f94c4ffe6bbf5fead8e820d3dbd41.zip | |
Make eshell link faces more distinctive on 8-color displays
* lisp/eshell/em-ls.el (eshell-ls-directory):
(eshell-ls-symlink): Make the faces be distinctive on 8-colour
displays (bug#43615).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/eshell/em-ls.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index 846f3d5e290..874591d2501 100644 --- a/lisp/eshell/em-ls.el +++ b/lisp/eshell/em-ls.el | |||
| @@ -100,15 +100,14 @@ faster and conserves more memory." | |||
| 100 | :type 'boolean) | 100 | :type 'boolean) |
| 101 | 101 | ||
| 102 | (defface eshell-ls-directory | 102 | (defface eshell-ls-directory |
| 103 | '((((class color) (background light)) (:foreground "Blue" :weight bold)) | 103 | '((t (:inherit font-lock-function-name-face))) |
| 104 | (((class color) (background dark)) (:foreground "SkyBlue" :weight bold)) | 104 | "The face used for highlighting directories." |
| 105 | (t (:weight bold))) | 105 | :version "29.1") |
| 106 | "The face used for highlighting directories.") | ||
| 107 | 106 | ||
| 108 | (defface eshell-ls-symlink | 107 | (defface eshell-ls-symlink |
| 109 | '((((class color) (background light)) (:foreground "Dark Cyan" :weight bold)) | 108 | '((t (:inherit font-lock-keyword-face))) |
| 110 | (((class color) (background dark)) (:foreground "Cyan" :weight bold))) | 109 | "The face used for highlighting symbolic links." |
| 111 | "The face used for highlighting symbolic links.") | 110 | :version "29.1") |
| 112 | 111 | ||
| 113 | (defface eshell-ls-executable | 112 | (defface eshell-ls-executable |
| 114 | '((((class color) (background light)) (:foreground "ForestGreen" :weight bold)) | 113 | '((((class color) (background light)) (:foreground "ForestGreen" :weight bold)) |