diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-09-09 01:10:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-09-09 01:10:41 +0000 |
| commit | d502fc069259daaea123cda1a413de56d78f7004 (patch) | |
| tree | cf0c006503e08a1e9482d935d620a75f3176492f /lisp/descr-text.el | |
| parent | 49c560366c80a7df77dd630f4de1ad3da3287882 (diff) | |
| download | emacs-d502fc069259daaea123cda1a413de56d78f7004.tar.gz | |
(describe-property-list): Handle non-symbol prop names.
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | lisp/descr-text.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index e25d740b89b..5f410da17a7 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -108,7 +108,8 @@ into widget buttons that call `describe-text-category' or (while properties (push (list (pop properties) (pop properties)) ret)) ret) - (lambda (a b) (string< (nth 0 a) (nth 0 b))))) + (lambda (a b) (string< (prin1-to-string (nth 0 a) t) + (prin1-to-string (nth 0 b) t))))) (let ((key (nth 0 elt)) (value (nth 1 elt))) (widget-insert (propertize (format " %-20s " key) |