mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Chong Yidong 2011-01-28 12:18:54 -05:00
parent 46b3f2bedc
commit d1f14baa30
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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

6
lisp/mouse.el
View file

@ -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