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