From 22e659899c9d0f8c4889ae48067d60ccb09937b4 Mon Sep 17 00:00:00 2001
From: hjunes <hjunes>
Date: Sat, 3 May 2003 09:36:43 +0000
Subject: [PATCH] Fix XEmacs-menus.

---
 ChangeLog        | 3 ++-
 lilypond-mode.el | 4 +++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ec4168c7e4..3fa2841960 100644
--- 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 d679d8aa47..677e2a76d9 100644
--- 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))
 
-- 
2.39.5