Commit 41c77dc6 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix documentation of 'redisplay-highlight-region-function'

* lisp/simple.el (redisplay-highlight-region-function): Fix
last change.  (Bug#24701)
parent ae9202de
Pipeline #2611 failed with stage
in 90 minutes and 2 seconds
......@@ -5614,13 +5614,6 @@ separate contiguous regions for each line."
(lambda (rol) (when (overlayp rol) (delete-overlay rol))))
(defvar redisplay-highlight-region-function
"Function to move the highlight overlay.
This function is called with four parameters, START, END, WINDOW
and OVERLAY. If OVERLAY is nil, a new overlay is created. In
any case, the overlay is adjusted to reflect the other three
parameters.
The overlay is returned by the function."
(lambda (start end window rol)
(if (not (overlayp rol))
(let ((nrol (make-overlay start end)))
......@@ -5637,7 +5630,14 @@ The overlay is returned by the function."
(eq (overlay-start rol) start)
(eq (overlay-end rol) end))
(move-overlay rol start end (current-buffer)))
rol)))
rol))
"Function to move the region-highlight overlay.
This function is called with four parameters, START, END, WINDOW
and OVERLAY. If OVERLAY is nil, a new overlay is created. In
any case, the overlay is adjusted to reflect the other three
parameters.
The overlay is returned by the function.")
(defun redisplay--update-region-highlight (window)
(let ((rol (window-parameter window 'internal-region-overlay)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment