Re: Command Menu

[Kevin Rodgers <ihs_4664@yahoo.com>]

Artist wrote:

> ie..instead of doing M-x some-command,
> I just hit the menu, with some binded key, and it should have all the
> command that I frequently use.


(defvar my-command-menu
   (let ((map (make-sparse-keymap "My Commands")))
     (define-key map [foo] '("Foo" . foo-command))
     (define-key map [bar] '("Bar" . bar-command))
     map))

(global-set-key [menu-bar my-command] (cons "My Commands" my-command-menu))

> There should be method to add and
> delete comamnds and execute command methods.

(global-unset-key [menu-bar my-command foo])	; add
(global-set-key [menu-bar my-command baz] '("Baz" . baz-command))	; delete
;; execute command methods?

-- 
Kevin Rodgers