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

2002-08-18 13:37:11 +00:00
parent e2056874b6
commit ab2cbf678b
1 changed files with 1 additions and 2 deletions
--- 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))))