mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(describe-property-list): Add a button for `face' property

Browse source 
that calls `describe-face'.
This commit is contained in:
Juri Linkov 2004-03-25 10:36:55 +00:00
parent d9026f5cb0
commit 7235491062
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/descr-text.el
View file

@ -1,6 +1,6 @@
;;; descr-text.el --- describe text mode
;; Copyright (c) 1994, 1995, 1996, 2001, 02, 03 Free Software Foundation, Inc.
;; Copyright (c) 1994, 95, 96, 2001, 02, 03, 04 Free Software Foundation, Inc.
;; Author: Boris Goldowsky <boris@gnu.org>
;; Keywords: faces
@ -99,8 +99,8 @@ if that value is non-nil."
(defun describe-property-list (properties)
"Insert a description of PROPERTIES in the current buffer.
PROPERTIES should be a list of overlay or text properties.
The `category' property is made into a widget button that call
`describe-text-category' when pushed."
The `category' and `face' properties are made into widget buttons
that call `describe-text-category' or `describe-face' when pushed."
;; Sort the properties by the size of their value.
(dolist (elt (sort (let ((ret nil)
(key nil)
@ -110,7 +110,7 @@ The `category' property is made into a widget button that call
(setq key (pop properties)
val (pop properties)
len 0)
(unless (or (eq key 'category)
(unless (or (memq key '(category face))
(widgetp val))
(setq val (pp-to-string val)
len (length val)))
@ -128,6 +128,11 @@ The `category' property is made into a widget button that call
:notify `(lambda (&rest ignore)
(describe-text-category ',value))
(format "%S" value)))
((eq key 'face)
(widget-create 'link
:notify `(lambda (&rest ignore)
(describe-face ',value))
(format "%S" value)))
((widgetp value)
(describe-text-widget value))
(t