Mercurial > emacs
comparison lisp/ruler-mode.el @ 89483:2f877ed80fa6
*** empty log message ***
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 08 Sep 2003 12:53:41 +0000 |
| parents | 375f2633d815 71bcf52caa3b |
| children | 68c22ea6027c |
comparison
equal
deleted
inserted
replaced
| 88123:375f2633d815 | 89483:2f877ed80fa6 |
|---|---|
| 127 ;; defcustoms because it is used in their :validate clause. | 127 ;; defcustoms because it is used in their :validate clause. |
| 128 (defun ruler-mode-character-validate (widget) | 128 (defun ruler-mode-character-validate (widget) |
| 129 "Ensure WIDGET value is a valid character value." | 129 "Ensure WIDGET value is a valid character value." |
| 130 (save-excursion | 130 (save-excursion |
| 131 (let ((value (widget-value widget))) | 131 (let ((value (widget-value widget))) |
| 132 (if (char-valid-p value) | 132 (unless (characterp value) |
| 133 nil | |
| 134 (widget-put widget :error | 133 (widget-put widget :error |
| 135 (format "Invalid character value: %S" value)) | 134 (format "Invalid character value: %S" value)) |
| 136 widget)))) | 135 widget)))) |
| 137 | 136 |
| 138 (defcustom ruler-mode-fill-column-char (if window-system | 137 (defcustom ruler-mode-fill-column-char (if window-system |