[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99917: Minor fix to describe-key, and a docstring.

[Chong Yidong]

------------------------------------------------------------
revno: 99917
committer: Chong Yidong <address@hidden>
branch nick: emacs-23
timestamp: Tue 2010-07-06 15:42:46 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/help.el
  lisp/mouse.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-03 11:12:53 +0000
+++ b/lisp/ChangeLog    2010-07-06 19:42:46 +0000
@@ -1,3 +1,9 @@
+2010-07-06  Chong Yidong  <address@hidden>
+
+       * mouse.el (mouse-appearance-menu): Add docstring.
+
+       * help.el (describe-key): Print up-event using key-description.
+
 2010-07-03  Michael Albinus  <address@hidden>
 
        * net/zeroconf.el (zeroconf-resolve-service)

=== modified file 'lisp/help.el'
--- a/lisp/help.el      2010-04-03 23:40:20 +0000
+++ b/lisp/help.el      2010-07-06 19:42:46 +0000
@@ -768,9 +768,10 @@
 
 ----------------- 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))

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2010-01-13 08:35:10 +0000
+++ b/lisp/mouse.el     2010-07-06 19:42:46 +0000
@@ -2483,6 +2483,7 @@
 (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)