Parent Directory | Revision Log | Patch
revision 1.6 by pj, Sat Jan 19 14:01:25 2002 UTC | revision 1.6.2.1 by fx, Sun Aug 18 13:37:11 2002 UTC | |
---|---|---|
# | Line 123 or remove a tab stop. \\[ruler-mode-tog | Line 123 or remove a tab stop. \\[ruler-mode-tog |
123 | "Ensure WIDGET value is a valid character value." | "Ensure WIDGET value is a valid character value." |
124 | (save-excursion | (save-excursion |
125 | (let ((value (widget-value widget))) | (let ((value (widget-value widget))) |
126 | (if (char-valid-p value) | (unless (characterp value) |
nil | ||
127 | (widget-put widget :error | (widget-put widget :error |
128 | (format "Invalid character value: %S" value)) | (format "Invalid character value: %S" value)) |
129 | widget)))) | widget)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |