瀏覽代碼

Tune hl-line

pull/15/head
10sr 8 年之前
父節點
當前提交
e960c4fcea
共有 1 個文件被更改,包括 10 次插入13 次删除
  1. +10
    -13
      emacs.el

+ 10
- 13
emacs.el 查看文件

@@ -723,22 +723,19 @@ IF OK-IF-ALREADY-EXISTS is true force download."


;; highlight current line ;; highlight current line
;; http://wiki.riywo.com/index.php?Meadow ;; http://wiki.riywo.com/index.php?Meadow
(defface 10sr-hl-line
'((((min-colors 256)
(background dark))
(:background "color-17"))
(((min-colors 256)
(background light))
(:background "color-234"))
(t
(:underline "black")))
"*Face used by hl-line."
:group '10sr)
(global-hl-line-mode 1) ;; (hl-line-mode 1)
;;(set-variable 'hl-line-face '10sr-hl-line) ;; (setq hl-line-face nil)
(face-spec-set 'hl-line
'((((min-colors 256)
(background dark))
(:background "color-234"))
(((min-colors 256)
(background light))
(:background "color-234"))
(t
(:underline "black"))))
(set-variable 'hl-line-global-modes (set-variable 'hl-line-global-modes
'(not '(not
term-mode)) term-mode))
(global-hl-line-mode 1) ;; (hl-line-mode 1)


(set-face-foreground 'font-lock-regexp-grouping-backslash "#666") (set-face-foreground 'font-lock-regexp-grouping-backslash "#666")
(set-face-foreground 'font-lock-regexp-grouping-construct "#f60") (set-face-foreground 'font-lock-regexp-grouping-construct "#f60")


Loading…
取消
儲存