From fc2c314f834e7fc421e9ce74e33c18bb7fd7aaae Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Thu, 4 Feb 2016 00:30:21 +0900 Subject: [PATCH] WIP experimental fix of hl-line --- emacs.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/emacs.el b/emacs.el index 0ed181b..a56f270 100644 --- a/emacs.el +++ b/emacs.el @@ -739,9 +739,17 @@ IF OK-IF-ALREADY-EXISTS is true force download." "*Face used by hl-line." :group '10sr) (global-hl-line-mode 1) ;; (hl-line-mode 1) -(set-face-underline 'hl-line t) -(set-face-background 'hl-line "unspecified-bg") -(set-face-foreground 'hl-line "unspecified-fg") +(if (< (display-color-cells) + 256) + ;; 8 colors + (progn + (set-face-underline 'hl-line t) + (set-face-background 'hl-line "unspecified-bg") + (set-face-foreground 'hl-line "unspecified-fg")) + ;; 256 colors + (set-face-background 'hl-line "color-235") + ;;(set-face-foreground 'hl-line "unspecified-fg") + ) ;; (set-variable 'hl-line-face '10sr-hl-line) ;; (setq hl-line-face nil) (set-variable 'hl-line-global-modes '(not