Mercurial > hg > xemacs-beta

diff lisp/mule/mule-cmds.el @ 213:78f53ef88e17 r20-4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents 41ff10fd062f
children 262b8bb4a523
line wrap: on
line diff
--- a/lisp/mule/mule-cmds.el	Mon Aug 13 10:05:53 2007 +0200
+++ b/lisp/mule/mule-cmds.el	Mon Aug 13 10:06:47 2007 +0200
@@ -208,12 +208,14 @@
            ;;   t)
 	   (if (consp info)
 	       (setq info (car info)))
-	   (eval-after-load "x-menubar"
-	     `(add-menu-button
-	       '("Mule" "Describe Language Support")
-	       (vector ,language-name
-		       '(describe-language-environment ,language-name)
-		       t)))
+	   (when (featurep 'menubar)
+	     (eval-after-load
+	      "x-menubar"
+	      `(add-menu-button
+		'("Mule" "Describe Language Support")
+		(vector ,language-name
+			'(describe-language-environment ,language-name)
+			t))))
 	   )
 	  ((eq key 'setup-function)
            ;; (define-key-after
@@ -226,12 +228,14 @@
            ;;   t)
 	   (if (consp info)
 	       (setq info (car info)))
-	   (eval-after-load "x-menubar"
-	     `(add-menu-button
-	       '("Mule" "Set Language Environment")
-	       (vector ,language-name
-		       '(set-language-environment ,language-name)
-		       t)))
+	   (when (featurep 'menubar)
+	     (eval-after-load
+	      "x-menubar"
+	      `(add-menu-button
+		'("Mule" "Set Language Environment")
+		(vector ,language-name
+			'(set-language-environment ,language-name)
+			t))))
            ))
 
     (setcdr key-slot info)