diff options
| -rw-r--r-- | lisp/ruler-mode.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index 840934f1693..be30afd7861 100644 --- 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 | |||
| 123 | "Ensure WIDGET value is a valid character value." | 123 | "Ensure WIDGET value is a valid character value." |
| 124 | (save-excursion | 124 | (save-excursion |
| 125 | (let ((value (widget-value widget))) | 125 | (let ((value (widget-value widget))) |
| 126 | (if (char-valid-p value) | 126 | (unless (characterp value) |
| 127 | nil | ||
| 128 | (widget-put widget :error | 127 | (widget-put widget :error |
| 129 | (format "Invalid character value: %S" value)) | 128 | (format "Invalid character value: %S" value)) |
| 130 | widget)))) | 129 | widget)))) |