RE: [h-e-w] Current dir & customizing menu

[Daniel Hegyi]

Very cool stuff! I would like to join in with Heribert: Hans, do you have a 
hack for creating sub-menus? Should be possible, since many other Emacs 
menus have it.

Thanks again! This is something that will make my Emacsing a lot easier. 
Don't need to remember so many functions anymore.

Daniel



> 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


_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp