Minor fix to describe-key, and a docstring.

* help.el (describe-key): Print up-event using key-description.

* mouse.el (mouse-appearance-menu): Add docstring.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1fb6ccc2b658e6da756c36b4548178237e6567a8..e4bd2cce4b892cb0b3c8ab709b6ac9af5908b0c8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-07-06  Chong Yidong  <cyd@stupidchicken.com>
+
+       * mouse.el (mouse-appearance-menu): Add docstring.
+
+       * help.el (describe-key): Print up-event using key-description.
+
 2010-07-03  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/zeroconf.el (zeroconf-resolve-service)

diff --git a/lisp/help.el b/lisp/help.el
index 0c231a78b9184be326ae1f08e3e1bb5f19830104..acfd78b301fcf334144f88e6f8783a9352a54bb7 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -768,9 +768,10 @@ temporarily enables it to allow getting help on disabled items and buttons."
 
 ----------------- up-event %s----------------
 
-<%S>%s%s runs the command %S, which is "
+%s%s%s runs the command %S, which is "
                           (if mouse-1-tricky "(short click) " "")
-                          ev-type mouse-msg
+                          (key-description (vector up-event))
+                          mouse-msg
                           (if mouse-1-remapped
                                " is remapped to <mouse-2>, which" "")
                           defn-up))

diff --git a/lisp/mouse.el b/lisp/mouse.el
index d1abb7dd4b1e2d624d664cd93730350034dc11a3..be63f1d73d2eab186ca576394b2d58d52fd4e76c 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2483,6 +2483,7 @@ choose a font."
 (declare-function font-face-attributes "font.c" (font &optional frame))
 
 (defun mouse-appearance-menu (event)
+  "Show a menu for changing the default face in the current buffer."
   (interactive "@e")
   (require 'face-remap)
   (when (display-multi-font-p)