/[emacs]/emacs/lisp/descr-text.el
ViewVC logotype

Diff of /emacs/lisp/descr-text.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by ttn, Sat Aug 6 22:13:42 2005 UTC revision 1.40 by rms, Fri Sep 9 01:10:41 2005 UTC
# Line 108  into widget buttons that call `describe- Line 108  into widget buttons that call `describe-
108                         (while properties                         (while properties
109                           (push (list (pop properties) (pop properties)) ret))                           (push (list (pop properties) (pop properties)) ret))
110                         ret)                         ret)
111                       (lambda (a b) (string< (nth 0 a) (nth 0 b)))))                       (lambda (a b) (string< (prin1-to-string (nth 0 a) t)
112                                                (prin1-to-string (nth 0 b) t)))))
113      (let ((key (nth 0 elt))      (let ((key (nth 0 elt))
114            (value (nth 1 elt)))            (value (nth 1 elt)))
115        (widget-insert (propertize (format "  %-20s " key)        (widget-insert (propertize (format "  %-20s " key)

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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