mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases 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
Show Stats 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