Show
Ignore:
Timestamp:
09/10/05 10:16:00 (3 years ago)
Author:
miyoshi
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/lisp/descr-text.el

    r3809 r3863  
    109109                         (push (list (pop properties) (pop properties)) ret)) 
    110110                       ret) 
    111                      (lambda (a b) (string< (nth 0 a) (nth 0 b))))) 
     111                     (lambda (a b) (string< (prin1-to-string (nth 0 a) t) 
     112                                            (prin1-to-string (nth 0 b) t))))) 
    112113    (let ((key (nth 0 elt)) 
    113114          (value (nth 1 elt)))