Fix XEmacs-menus.

diff --git a/ChangeLog b/ChangeLog
index ec4168c7e463575b2d88018ab1dd52ad7292d1ba..3fa284196019cb35df3e47bbb06444a6103ed057 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,8 @@
 2003-05-03  Heikki Junes  <hjunes@cc.hut.fi>
 
        * lilypond-mode.el: Fix XEmacs: 
-       changed [S-iso-lefttab] to [(shift iso-lefttab)].
+       changed [S-iso-lefttab] to [(shift iso-lefttab)],
+       invoke explicitly easy-menu-add (in Emacs done automatically).
        
        * lilypond.words: Add few words from input/*/*.ly.
 

diff --git a/lilypond-mode.el b/lilypond-mode.el
index d679d8aa4739b4b73c789bb43cd8808fe2155ec5..677e2a76d9ed0fdbf53ad0329aef8fd3c6088ed6 100644 (file)
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -20,7 +20,6 @@
 ;;; for installing instructions.
 
 ;;; TODO:
-;;;    * XEmacs-menus, broken ?
 ;;;    * parenthesis matching
 
 (require 'easymenu)
@@ -1081,6 +1080,9 @@ LilyPond-xdvi-command\t\tcommand to display dvi files -- bit superfluous"
   (setq imenu-generic-expression LilyPond-imenu-generic-expression)
   (imenu-add-to-menubar "Index")
 
+  (easy-menu-add LilyPond-mode-menu)    ;; automatically added in Emacs, but
+  (easy-menu-add LilyPond-command-menu) ;; explicitly added in XEmacs
+
   ;; run the mode hook. LilyPond-mode-hook use is deprecated
   (run-hooks 'LilyPond-mode-hook))