From 3f468e9f355bb4e9a3e48d6323a51cc64eee3cc2 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Tue, 12 Nov 2024 09:27:28 +0100 Subject: Use delete-region which does less than erase-buffer --- corfu.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/corfu.el b/corfu.el index 18c1cd1..9e8b403 100644 --- a/corfu.el +++ b/corfu.el @@ -521,7 +521,7 @@ FRAME is the existing frame." (make-frame-invisible frame) (with-current-buffer (window-buffer (frame-root-window frame)) (with-silent-modifications - (erase-buffer))))) + (delete-region (point-min) (point-max)))))) (defun corfu--hide-frame (frame) "Hide child FRAME." @@ -1073,7 +1073,7 @@ A scroll bar is displayed from LO to LO+BAR." (set-face-attribute (make-face 'corfu--cbar) nil :inherit '(corfu--bar corfu-current))) (with-silent-modifications - (erase-buffer) + (delete-region (point-min) (point-max)) (apply #'insert (cl-loop for line in lines collect (let ((str (concat -- cgit v1.0