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

[Rosbach, Hans A.]

Daniel Hegyi wrote
> Is it possible to create a global menu called 
> "favorite funcs" and to put my favorite functions in it?

You are asking the wrong question - the correct one is:

"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



**********************************************************************
Neither the confidentiality nor the integrity of this message 
can be guaranteed following transmission on the Internet. 
This message has been swept by MAILsweeper at DNV for 
the presence of computer viruses.
**********************************************************************