From: Heikki Junes <heikki.junes@hut.fi>
Date: Sat, 3 May 2003 09:36:43 +0000 (+0000)
Subject: Fix XEmacs-menus.
X-Git-Tag: release/1.7.20~68
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bc6400b95d2e0be44591cc3ff61657d766bd2c31;p=lilypond.git

Fix XEmacs-menus.
---

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))