Mercurial > emacs
changeset 72572:daa3868065ff
* hl-line.el (hl-line): New face.
(hl-line-face): Use it.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 29 Aug 2006 13:28:00 +0000 |
| parents | 871eeda78fd7 |
| children | fd926d483a42 |
| files | lisp/ChangeLog lisp/hl-line.el |
| diffstat | 2 files changed, 27 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Aug 29 13:15:53 2006 +0000 +++ b/lisp/ChangeLog Tue Aug 29 13:28:00 2006 +0000 @@ -1,5 +1,8 @@ 2006-08-29 Chong Yidong <cyd@stupidchicken.com> + * hl-line.el (hl-line): New face. + (hl-line-face): Use it. + * image-mode.el (image-mode): Fix last fix. Suggested by Kim F. Storm.
--- a/lisp/hl-line.el Tue Aug 29 13:15:53 2006 +0000 +++ b/lisp/hl-line.el Tue Aug 29 13:28:00 2006 +0000 @@ -64,15 +64,36 @@ ;;; Code: +(defvar hl-line-overlay nil + "Overlay used by Hl-Line mode to highlight the current line.") +(make-variable-buffer-local 'hl-line-overlay) + +(defvar global-hl-line-overlay nil + "Overlay used by Global-Hl-Line mode to highlight the current line.") + (defgroup hl-line nil "Highlight the current line." :version "21.1" :group 'editing) -(defcustom hl-line-face 'highlight - "Face with which to highlight the current line." +(defface hl-line + '((t :inherit highlight)) + "Default face for highlighting the current line in Hl-Line mode." + :version "22.1" + :group 'hl-line) + +(defcustom hl-line-face 'hl-line + "Face with which to highlight the current line in Hl-Line mode." :type 'face - :group 'hl-line) + :group 'hl-line + :set (lambda (symbol value) + (set symbol value) + (dolist (buffer (buffer-list)) + (with-current-buffer buffer + (when hl-line-overlay + (overlay-put hl-line-overlay 'face hl-line-face)))) + (when global-hl-line-overlay + (overlay-put global-hl-line-overlay 'face hl-line-face)))) (defcustom hl-line-sticky-flag t "*Non-nil means highlight the current line in all windows. @@ -92,13 +113,6 @@ This variable is expected to be made buffer-local by modes.") -(defvar hl-line-overlay nil - "Overlay used by Hl-Line mode to highlight the current line.") -(make-variable-buffer-local 'hl-line-overlay) - -(defvar global-hl-line-overlay nil - "Overlay used by Global-Hl-Line mode to highlight the current line.") - ;;;###autoload (define-minor-mode hl-line-mode "Buffer-local minor mode to highlight the line about point.