[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/completions-customs 2ce4c038ec: Rename hook
From: |
Jimmy Aguilar Mena |
Subject: |
feature/completions-customs 2ce4c038ec: Rename hook |
Date: |
Sun, 13 Mar 2022 16:37:58 -0400 (EDT) |
branch: feature/completions-customs
commit 2ce4c038ec27e5fc40a5adf54f7a8498f0692b88
Author: Jimmy Aguilar Mena <spacibba@aol.com>
Commit: Jimmy Aguilar Mena <spacibba@aol.com>
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 cc356addb9..e20719f7a0 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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/completions-customs 2ce4c038ec: Rename hook,
Jimmy Aguilar Mena <=