[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ruler-mode.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ruler-mode.el,v |
Date: |
Fri, 01 Feb 2008 16:02:53 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 08/02/01 16:01:31
Index: lisp/ruler-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ruler-mode.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- lisp/ruler-mode.el 8 Jan 2008 20:44:59 -0000 1.31
+++ lisp/ruler-mode.el 1 Feb 2008 16:01:10 -0000 1.32
@@ -135,8 +135,7 @@
"Ensure WIDGET value is a valid character value."
(save-excursion
(let ((value (widget-value widget)))
- (if (char-valid-p value)
- nil
+ (unless (characterp value)
(widget-put widget :error
(format "Invalid character value: %S" value))
widget))))
@@ -667,7 +666,8 @@
;; Create an "clean" ruler.
(ruler
(propertize
- (make-string w ruler-mode-basic-graduation-char)
+ (string-to-multibyte
+ (make-string w ruler-mode-basic-graduation-char))
'face 'ruler-mode-default
'local-map ruler-mode-map
'help-echo (cond
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/ruler-mode.el,v,
Miles Bader <=