--- a/lisp/x11/x-menubar.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/x11/x-menubar.el	Mon Aug 13 09:39:39 2007 +0200
@@ -4,6 +4,7 @@
 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
 ;; Copyright (C) 1995 Sun Microsystems.
 ;; Copyright (C) 1995, 1996 Ben Wing.
+;; Copyright (C) 1997 MORIOKA Tomohiko
 
 ;; This file is part of XEmacs.
 
@@ -102,7 +103,33 @@
       ["End Macro Recording"	end-kbd-macro		defining-kbd-macro]
       ["Execute Last Macro"	call-last-kbd-macro	last-kbd-macro]
       )
-
+     
+     ,@(if (featurep 'mule)
+	   '(("Mule"
+	      ["Describe language support"
+	       mule-describe-language-support-prefix nil] ; not implemented yet
+	      ["Set language environment"
+	       mule-set-language-environment-prefix nil] ; not implemented yet
+	      "--"
+	      ["Toggle input method" toggle-input-method t]
+	      ["Select input method" select-input-method t]
+	      ["Describe input method" describe-input-method t]
+	      "--"
+	      ["Describe current coding systems"
+	       describe-current-coding-system t]
+	      ["Set coding system of buffer file"
+	       set-buffer-file-coding-system t]
+	      ["Set coding system of terminal"
+	       set-terminal-coding-system nil] ; not implemented yet
+	      ["Set coding system of keyboard"
+	       set-keyboard-coding-system nil] ; not implemented yet
+	      ["Set coding system of process"
+	       set-current-process-coding-system nil] ; not implemented yet
+	      "--"
+	      ["Show diagnosis for MULE" mule-diag nil] ; not implemented yet
+	      ["Show many languages" view-hello-file t]
+	      )))
+     
      ("Apps"
       ["Read Mail (VM)..."	vm			t]
       ["Read Mail (MH)..."	(mh-rmail t)		t]