(ruler-mode-character-validate): Use characterp.

diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el
index 840934f1693791f8fa0377ab912ecf9f325207d7..be30afd786139f304b17ceac31fdc28bc05d61ad 100644 (file)
--- a/lisp/ruler-mode.el
+++ b/lisp/ruler-mode.el
@@ -123,8 +123,7 @@ or remove a tab stop.  \\[ruler-mode-toggle-show-tab-stops] or
   "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))))