From 2ce4c038ec27e5fc40a5adf54f7a8498f0692b88 Mon Sep 17 00:00:00 2001 From: Jimmy Aguilar Mena Date: Sun, 13 Mar 2022 21:35:48 +0100 Subject: [PATCH] Rename hook * lisp/simple.el (redisplay--update-cursor-property-highlight) : Renamed to redisplay--update-cursor-property-highlight --- lisp/simple.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index cc356addb97..e20719f7a0f 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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, -- 2.39.2