(facemenu-map): Rename to Describe Text

to Describe Properties and use describe-text-properties.

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index c7e9cdd3a53710c13180ee1c1d61e83304fd9e6e..ca81ebec67d5cc9580896cfa14c3c559a43d1b63 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -238,8 +238,8 @@ when they are created."
 (let ((map facemenu-menu))
   (define-key map [dc] (cons (purecopy "Display Colors") 'list-colors-display))
   (define-key map [df] (cons (purecopy "Display Faces") 'list-faces-display))
-  (define-key map [dp] (cons (purecopy "Describe Text")
-                            'describe-text-at))
+  (define-key map [dp] (cons (purecopy "Describe Properties")
+                            'describe-text-properties))
   (define-key map [ra] (cons (purecopy "Remove Text Properties")
                             'facemenu-remove-all))
   (define-key map [rm] (cons (purecopy "Remove Face Properties")