[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
RE: [h-e-w] Current dir & customizing menu
From: |
Heribert Maier |
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
- [h-e-w] Current dir & customizing menu, Daniel Hegyi, 2001/11/08
- Re: [h-e-w] Current dir & customizing menu, Robinows, 2001/11/08
- RE: [h-e-w] Current dir & customizing menu, Rosbach, Hans A., 2001/11/09
- RE: [h-e-w] Current dir & customizing menu,
Heribert Maier <=
- RE: [h-e-w] Current dir & customizing menu, Daniel Hegyi, 2001/11/12
- RE: [h-e-w] Current dir & customizing menu, Rosbach, Hans A., 2001/11/14