From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 28 Jan 2011 17:18:54 +0000 (-0500)
Subject: * mouse.el (mouse-menu-non-singleton): Doc fix (Bug#7801).
X-Git-Tag: emacs-pretest-23.2.93~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1f14baa30f7e2898bbfc7ea68fe93020b69a901;p=emacs.git

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

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