mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix incompatible changes in hl-line

Browse source 
* lisp/hl-line.el (hl-line-face): Rename back to hl-line.
(hl-line-face): Restore defcustom.
This commit is contained in:
Po Lu 2022-03-22 08:19:32 +08:00
parent a5e8da4fa2
commit f36d929ee7
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/hl-line.el
View file

@ -47,11 +47,22 @@
:version "21.1"
:group 'convenience)
(defface hl-line-face '((t :inherit highlight :extend t))
(defface hl-line '((t :inherit highlight :extend t))
"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
: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))))))
(defcustom hl-line-sticky-flag t
"Non-nil to preserve highlighting overlay when focus leaves window."
:type 'boolean
@ -105,7 +116,7 @@ Currently used in calendar/todo-mode."
(let ((ol (make-overlay (point) (point))))
(prog1 ol
(overlay-put ol 'priority hl-line-overlay-priority)
(overlay-put ol 'face 'hl-line-face)))))
(overlay-put ol 'face hl-line-face)))))
(move-overlay hl-line--overlay
(line-beginning-position)
(line-beginning-position 2))