Mercurial > hg > xemacs-beta

comparison lisp/descr-text.el @ 4473:0204391fc17c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#'require hyper-apropos in #'describe-property-list, for hyper-apropos-face 2008-06-04 Aidan Kehoe <kehoea@parhasard.net> * descr-text.el (describe-property-list): #'require hyper-apropos, since we use hyper-apropos-face
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 04 Jun 2008 21:57:49 +0200
parents a78d697ccd2c
children 78738a40e31e
comparison
equal deleted inserted replaced
4472:a99eb40f0b5b 4473:0204391fc17c
80 PROPERTIES should be a list of overlay or text properties. 80 PROPERTIES should be a list of overlay or text properties.
81 The `category', `face' and `font-lock-face' properties are made 81 The `category', `face' and `font-lock-face' properties are made
82 into help buttons that call `describe-text-category' or 82 into help buttons that call `describe-text-category' or
83 `describe-face' when pushed." 83 `describe-face' when pushed."
84 ;; Sort the properties by the size of their value. 84 ;; Sort the properties by the size of their value.
85 (require 'hyper-apropos)
85 (dolist (elt (sort (let (ret) 86 (dolist (elt (sort (let (ret)
86 (while properties 87 (while properties
87 (push (list (pop properties) (pop properties)) ret)) 88 (push (list (pop properties) (pop properties)) ret))
88 ret) 89 ret)
89 (lambda (a b) (string< (prin1-to-string (nth 0 a) t) 90 (lambda (a b) (string< (prin1-to-string (nth 0 a) t)