summaryrefslogtreecommitdiff
path: root/lisp/cus-start.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2020-05-09 12:34:58 +0300
committerEli Zaretskii <eliz@gnu.org>2020-05-09 12:34:58 +0300
commitc5e583977629f55ad438ef0b0c210a9eeb94ae6d (patch)
tree56e468ff4ba9b4fbd1ec7fbf45a6c1469f9d0fc5 /lisp/cus-start.el
parentd5c184aa3e2a183144efa5f269e2c70d2681aa0a (diff)
downloademacs-c5e583977629f55ad438ef0b0c210a9eeb94ae6d.tar.gz
Fix customization of 'display-fill-column-indicator-character'
* lisp/cus-start.el (display-fill-column-indicator-character): Fix the customization form. (Bug#41145)
Diffstat (limited to 'lisp/cus-start.el')
-rw-r--r--lisp/cus-start.el11
1 files 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