From: "Heribert Maier" <address@hidden>
To: address@hidden
Subject: RE: [h-e-w] Current dir & customizing menu
Date: Sun, 11 Nov 2001 16:21:31 +0100
This is cool code, Hans!
Do you know how to make submenus with the tiny arrow?
Thanks for helping,
Heribert.
Rosbach, Hans A. writes:
> "How can I make my own global menu with favorites?"
>
> The answer is - one possibility is like this:
>
>
> (defun define-my-favorites-menu ()
> "Redefine menubar"
> (cond (t
> (or (lookup-key global-map [menu-bar])
> (define-key global-map [menu-bar] (make-sparse-keymap
> "menu-bar")))
> (defvar menu-bar-my-favorites-menu (make-sparse-keymap "Favorites"))
> (setq menu-bar-final-items (cons 'menu-bar-my-favorites-menu
> menu-bar-final-items))
> (define-key global-map [menu-bar menu-bar-my-favorites-menu]
> (cons "Favorites" menu-bar-my-favorites-menu))
> (define-key menu-bar-my-favorites-menu [goto-line]
> '("goto-line" . goto-line))
> (define-key menu-bar-my-favorites-menu [separator-favorites]
> '("--"))
> (define-key menu-bar-my-favorites-menu [gnus]
> '("gnus" . gnus))
> )))
>
> (define-my-favorites-menu)
>
> Hans Rosbach