emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 41c77dc: Fix documentation of 'redisplay-highlight-


From: Eli Zaretskii
Subject: [Emacs-diffs] master 41c77dc: Fix documentation of 'redisplay-highlight-region-function'
Date: Sat, 27 Jul 2019 10:53:47 -0400 (EDT)

branch: master
commit 41c77dc6870fc2d9b196ff203106bc729d38ab1b
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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 2c6fc84..75be4fe 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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]