summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2024-12-30 18:51:17 +0100
committerDaniel Mendler <mail@daniel-mendler.de>2024-12-30 18:51:17 +0100
commit7f0b32a32da3e3060cd7b7cc9d64034b12958f21 (patch)
tree1fc788e65bf28a642b0496eff3799fdbf7c7dda7
parent9f0903387f0c9019dab8b91cf39b8c6ba2de9430 (diff)
Do not create empty fringe bitmaps
They cause crashes in Emacs on non-Cairo builds. See bug#75199.
-rw-r--r--corfu.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/corfu.el b/corfu.el
index 96d4e91..c65702c 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)))