* mouse.el (mouse-menu-non-singleton): Doc fix (Bug#7801).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4450a4eea6c77bc1ddaf0859fb118709c0079c4..c35e3db23e608161122c16fdd3fa5e8cd0aa2b77 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-28  Chong Yidong  <cyd@stupidchicken.com>
+
+       * mouse.el (mouse-menu-non-singleton): Doc fix (Bug#7801).
+
 2011-01-28  Kenichi Handa  <handa@m17n.org>
 
        * international/quail.el (quail-keyboard-layout-alist): Remove

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 2e02448e0fb61559ad2772c49781530247406f8b..bed4776c13590a4bfb0d7acaa8f13b0413282844 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -198,9 +198,9 @@ items `Turn Off' and `Help'."
     newmap))
 
 (defun mouse-menu-non-singleton (menubar)
-  "Given menu keymap,
-if it defines exactly one submenu, return just that submenu.
-Otherwise return the whole menu."
+  "Return menu keybar MENUBAR, or a lone submenu inside it.
+If MENUBAR defines exactly one submenu, return just that submenu.
+Otherwise, return MENUBAR."
   (if menubar
       (let (submap)
         (map-keymap