emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/corfu 7f0b32a32d: Do not create empty fringe bitmaps


From: ELPA Syncer
Subject: [elpa] externals/corfu 7f0b32a32d: Do not create empty fringe bitmaps
Date: Mon, 30 Dec 2024 12:57:44 -0500 (EST)

branch: externals/corfu
commit 7f0b32a32da3e3060cd7b7cc9d64034b12958f21
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Do not create empty fringe bitmaps
    
    They cause crashes in Emacs on non-Cairo builds. See bug#75199.
---
 corfu.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/corfu.el b/corfu.el
index 96d4e91c21..c65702ce15 100644
--- a/corfu.el
+++ b/corfu.el
@@ -1078,7 +1078,7 @@ A scroll bar is displayed from LO to LO+BAR."
         (unless (or (= right-fringe-width 0) (eq (get 'corfu--bar 'corfu--bmp) 
bmp))
           (put 'corfu--bar 'corfu--bmp bmp)
           (define-fringe-bitmap 'corfu--bar (vector (lognot bmp)) 1 mr '(top 
periodic))
-          (define-fringe-bitmap 'corfu--nil [])
+          (define-fringe-bitmap 'corfu--nil [0] 1 1)
           ;; Fringe bitmaps require symbol face specification, define internal 
face.
           (set-face-attribute (make-face 'corfu--cbar) nil
                               :inherit '(corfu--bar corfu-current)))



reply via email to

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