diff options
| author | Jimmy Aguilar Mena <spacibba@aol.com> | 2022-03-13 21:35:48 +0100 |
|---|---|---|
| committer | Jimmy Aguilar Mena <spacibba@aol.com> | 2022-03-13 21:35:48 +0100 |
| commit | 2ce4c038ec27e5fc40a5adf54f7a8498f0692b88 (patch) | |
| tree | d3123d61c1182160bcef471d736ce8906f6186dc /lisp/simple.el | |
| parent | 3f17e3acb3f0cff731c555f2abb97c763f005fc4 (diff) | |
| download | emacs-2ce4c038ec27e5fc40a5adf54f7a8498f0692b88.tar.gz emacs-2ce4c038ec27e5fc40a5adf54f7a8498f0692b88.tar.bz2 emacs-2ce4c038ec27e5fc40a5adf54f7a8498f0692b88.zip | |
Rename hook
* lisp/simple.el (redisplay--update-cursor-property-highlight) : Renamed
to redisplay--update-cursor-property-highlight
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 4 |
1 files 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, |