From c5e583977629f55ad438ef0b0c210a9eeb94ae6d Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 9 May 2020 12:34:58 +0300 Subject: [PATCH] Fix customization of 'display-fill-column-indicator-character' * lisp/cus-start.el (display-fill-column-indicator-character): Fix the customization form. (Bug#41145) --- lisp/cus-start.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/cus-start.el b/lisp/cus-start.el index dff4d9a6060..bd32c7c61d3 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -771,9 +771,16 @@ since it could result in memory overflow and make Emacs crash." :safe (lambda (value) (or (booleanp value) (integerp value)))) (display-fill-column-indicator-character display-fill-column-indicator - character + (choice + (character :tag "Use U+2502 to indicate fill column" + :value ?│) + (character :tag "Use | to indicate fill column" + :value ?|) + (const :tag "If possible, use U+2502 to indicate fill column, otherwise use |" + :value nil) + character) "27.1" - :safe characterp) + :safe (lambda (value) (or (characterp value) (booleanp value)))) ;; xfaces.c (scalable-fonts-allowed display boolean "22.1") ;; xfns.c -- 2.39.2