Navigation

hl-line.el

Timestamp:

2006年09月09日 16時30分10秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

r4020	r4161
65	65	;;; Code:
66	66
	67	(defvar hl-line-overlay nil
	68	"Overlay used by Hl-Line mode to highlight the current line.")
	69	(make-variable-buffer-local 'hl-line-overlay)
	70
	71	(defvar global-hl-line-overlay nil
	72	"Overlay used by Global-Hl-Line mode to highlight the current line.")
	73
67	74	(defgroup hl-line nil
68	75	"Highlight the current line."
…	…
70	77	:group 'editing)
71	78
72		(defcustom hl-line-face 'highlight
73		"Face with which to highlight the current line."
	79	(defface hl-line
	80	'((t :inherit highlight))
	81	"Default face for highlighting the current line in Hl-Line mode."
	82	:version "22.1"
	83	:group 'hl-line)
	84
	85	(defcustom hl-line-face 'hl-line
	86	"Face with which to highlight the current line in Hl-Line mode."
74	87	:type 'face
75		:group 'hl-line)
	88	:group 'hl-line
	89	:set (lambda (symbol value)
	90	(set symbol value)
	91	(dolist (buffer (buffer-list))
	92	(with-current-buffer buffer
	93	(when hl-line-overlay
	94	(overlay-put hl-line-overlay 'face hl-line-face))))
	95	(when global-hl-line-overlay
	96	(overlay-put global-hl-line-overlay 'face hl-line-face))))
76	97
77	98	(defcustom hl-line-sticky-flag t
…	…
92	113
93	114	This variable is expected to be made buffer-local by modes.")
94
95		~~(defvar hl-line-overlay nil~~
96		~~"Overlay used by Hl-Line mode to highlight the current line.")~~
97		~~(make-variable-buffer-local 'hl-line-overlay)~~
98
99		~~(defvar global-hl-line-overlay nil~~
100		~~"Overlay used by Global-Hl-Line mode to highlight the current line.")~~
101	115
102	116	;;;###autoload