procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rename hook

Browse source 
* lisp/simple.el (redisplay--update-cursor-property-highlight) : Renamed
to redisplay--update-cursor-property-highlight
This commit is contained in:
Jimmy Aguilar Mena 2022-03-13 21:35:48 +01:00
parent 3f17e3acb3
commit 2ce4c038ec
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/simple.el
View file

@ -6537,7 +6537,7 @@ The overlay is returned by the function.")
(unless (equal new rol)
(set-window-parameter window 'internal-region-overlay new))))))
(defun redisplay--update-cursor-property-highlight (window)
(defun redisplay--update-cursor-face-highlight (window)
"This highlights the overlay used to highlight text with cursor-face."
(let ((rol (window-parameter window 'internal-cursor-face-overlay))
(pt) (value) (cursor-face))
@ -6556,7 +6556,7 @@ The overlay is returned by the function.")
(if rol
(redisplay-unhighlight-overlay-function rol)))))
(defvar pre-redisplay-functions (list #'redisplay--update-cursor-property-highlight
(defvar pre-redisplay-functions (list #'redisplay--update-cursor-face-highlight
#'redisplay--update-region-highlight)
"Hook run just before redisplay.
It is called in each window that is to be redisplayed. It takes one argument,