branch: externals/corfu
commit 7f0b32a32da3e3060cd7b7cc9d64034b12958f21
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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)))
