diff options
| author | Dave Love | 2002-08-18 13:37:11 +0000 |
|---|---|---|
| committer | Dave Love | 2002-08-18 13:37:11 +0000 |
| commit | ab2cbf678bd4d9fca4a289d22812a24fa3f90e5d (patch) | |
| tree | dc036da22eea9042102a09d10bac903c865e4c84 | |
| parent | e2056874b61ff59d9eb2adcb00b2a574b32b8120 (diff) | |
| download | emacs-ab2cbf678bd4d9fca4a289d22812a24fa3f90e5d.tar.gz emacs-ab2cbf678bd4d9fca4a289d22812a24fa3f90e5d.zip | |
(ruler-mode-character-validate): Use characterp.
| -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)))) |