"Ensure WIDGET value is a valid character value."
(save-excursion
(let ((value (widget-value widget)))
- (if (char-valid-p value)
- nil
+ (unless (characterp value)
(widget-put widget :error
(format "Invalid character value: %S" value))
widget))))
;; Create an "clean" ruler.
(ruler
(propertize
- (make-string w ruler-mode-basic-graduation-char)
+ (string-to-multibyte
+ (make-string w ruler-mode-basic-graduation-char))
'face 'ruler-mode-default
'local-map ruler-mode-map
'help-echo (cond