# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1029677831 0
# Node ID 71bcf52caa3b8a3d6bcd5a0d560955d967f7148e
# Parent  fe13096d182978dc555e3ba63f87ff07b24cf8b3
(ruler-mode-character-validate): Use characterp.

diff -r fe13096d1829 -r 71bcf52caa3b lisp/ruler-mode.el
--- a/lisp/ruler-mode.el	Sun Aug 18 13:34:52 2002 +0000
+++ b/lisp/ruler-mode.el	Sun Aug 18 13:37:11 2002 +0000
@@ -123,8 +123,7 @@
   "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))))