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

2 files changed, 7 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4450a4eea6..c35e3db23e6 100644
--- 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 2e02448e0fb..bed4776c135 100644
--- 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