/[emacs]/emacs/lisp/ruler-mode.el
ViewVC logotype

Diff of /emacs/lisp/ruler-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26