Function: mouse-menu-non-singleton

mouse-menu-non-singleton is a byte-compiled function defined in mouse.el.gz.

Signature

(mouse-menu-non-singleton MENUBAR)

Documentation

Return menu keybar MENUBAR, or a lone submenu inside it.

If MENUBAR defines exactly one submenu, return just that submenu. Otherwise, return MENUBAR.

Source Code

;; Defined in /usr/src/emacs/lisp/mouse.el.gz
(defun mouse-menu-non-singleton (menubar)
  "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
         (lambda (k v) (setq submap (if submap t (cons k v))))
         (keymap-canonicalize menubar))
        (if (eq submap t)
            menubar
          (lookup-key menubar (vector (car submap)))))))