extract function

lem-project · Sep 22, 2023 · c798ae3 · c798ae3
1 parent 71d0990
commit c798ae3
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/display.lisp b/src/display.lisp
@@ -541,7 +541,7 @@
                    (window-point window))
       -1))
 
-(defmethod redraw-buffer (implementation (buffer text-buffer) window force)
+(defun redraw-buffer-internal (buffer window force)
   (assert (eq buffer (window-buffer window)))
   (let ((screen (window-screen window)))
     (draw-window-to-screen window)
@@ -554,3 +554,6 @@
     (when (or force (required-whole-update-screen-p screen))
       (lem-if:force-update-view (implementation) (screen-view screen)))
     (update-screen-cache screen buffer)))
+
+(defmethod redraw-buffer (implementation (buffer text-buffer) window force)
+  (redraw-buffer-internal buffer window force))