From 41c77dc6870fc2d9b196ff203106bc729d38ab1b Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 27 Jul 2019 17:52:47 +0300 Subject: [PATCH] Fix documentation of 'redisplay-highlight-region-function' * lisp/simple.el (redisplay-highlight-region-function): Fix last change. (Bug#24701) --- lisp/simple.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 2c6fc84e73f..75be4fe7cb5 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -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))) -- 2.39.2