emacs-27 c5e5839: Fix customization of 'display-fill-column-indicator-character'

[Eli Zaretskii]

branch: emacs-27
commit c5e583977629f55ad438ef0b0c210a9eeb94ae6d
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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 dff4d9a..bd32c7c 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