Re: Derived Mode 102 Keybindings and Menu

[Tim Johnson <tim@johnsons-web.com>]

On 2006-03-22, Tim Johnson <tim@johnsons-web.com> wrote:
The previous posting had a typo: see below
> On 2006-03-21, Stefan Monnier <monnier@iro.umontreal.ca> wrote:
>>>> (easy-menu-define foo-menu foo-mode-map "Foo mode menu."
>>>> '("Foo"
>>>> [...]
>>>> [...]
>>>> ...))
>>>> 
>>>> and then in foo-mode you do
>>
>>>>   (easy-menu-add foo-menu)
>>
>>>  For cross-compatibility XEmacs needs a more verbose approach, including
>>>  passing the keymap as an argument.
>>
>> I've used the above code in sml-mode and AFAIK it worked both in Emacs and
>> XEmacs.  So, I don't think you need "a more verbose approach" for XEmacs.
>
> Here's what I have done:
> ;; toplevel, called from derive-mode form
> (defun newlisp-menu ()
>   "Create Newlisp Menu for emacs/XEmacs"
>   (defvar newlisp-menu-var nil "Newlisp Menu Definition")
>   (easy-menu-define
>    newlisp-menu-var newlisp-keymap "Newlisp Mode Menu"
>      '("Newlisp"
>      ["Test" test-fun]))
>   (easy-menu-add-item nil nil newlisp-menu-var))
> ;; Works on both forks.
> ;; Tried changing
>   (easy-menu-add-item nil nil newlisp-menu-var)
>   to:
;; typo below
>   (easy-menu-add-item newlisp-menu-var)
;; should have been
   (easy-menu-add newlisp-menu-var)
;; Sorry!

>   ;; worked on Xemacs not on gnu emacs


-- 
Tim Johnson <tim@johnsons-web.com>
      http://www.alaska-internet-solutions.com