Adding an entry to the menu bar

Adding an entry to the menu bar

[Tim Allen]

Hi

I'm trying to add an entry to the Buffers menu bar (for creating a new
scratch). My attempt below works OK when adding to the Files menu, but
changing "files" to "buffers" does not insert the new menu option:

(define-key global-map
  [menu-bar files create-scratch]
  '("New buffer" . create-scratch-buffer))


I think this may be because the contents of the Buffers menu is created 
"on-the-fly", as it needs to list the actual buffers present. Can anyone 
help with this?

Thanks  

Tim

Re: Adding an entry to the menu bar

[Kevin Rodgers]

Tim Allen wrote:
> I'm trying to add an entry to the Buffers menu bar (for creating a new
> scratch). My attempt below works OK when adding to the Files menu, but
> changing "files" to "buffers" does not insert the new menu option:
> 
> (define-key global-map
>   [menu-bar files create-scratch]
>   '("New buffer" . create-scratch-buffer))
> 
> 
> I think this may be because the contents of the Buffers menu is created 
> "on-the-fly", as it needs to list the actual buffers present. Can anyone 
> help with this?

Right (plus the key is actually [menu-bar buffer], not [menu-bar
buffers]).

menu-bar-update-buffers is the function where this happens, so you could
try invoking your code like this:

(defadvice menu-bar-update-buffers (after create-scratch activate)
   "Add a \"New buffer\" entry to the \"Buffers\" menu."
   (define-key (current-global-map) [menu-bar buffer create-scratch]
     '("New buffer" . create-scratch-buffer)))

-- 
Kevin

Re: Adding an entry to the menu bar

[Tim Allen]

On Thu, 20 Jul 2006, Kevin Rodgers wrote:

> Tim Allen wrote:
> > I'm trying to add an entry to the Buffers menu bar (for creating a new
> > scratch). My attempt below works OK when adding to the Files menu, but
> > changing "files" to "buffers" does not insert the new menu option:
> > 
> > (define-key global-map
> >   [menu-bar files create-scratch]
> >   '("New buffer" . create-scratch-buffer))
> > 
> > 
> > I think this may be because the contents of the Buffers menu is created 
> > "on-the-fly", as it needs to list the actual buffers present. Can anyone 
> > help with this?
> 
> Right (plus the key is actually [menu-bar buffer], not [menu-bar
> buffers]).
> 
> menu-bar-update-buffers is the function where this happens, so you could
> try invoking your code like this:
> 
> (defadvice menu-bar-update-buffers (after create-scratch activate)
>    "Add a \"New buffer\" entry to the \"Buffers\" menu."
>    (define-key (current-global-map) [menu-bar buffer create-scratch]
>      '("New buffer" . create-scratch-buffer)))
> 
> 

Thanks Kevin, that was exactly what I needed.

Tim