Mercurial > hg > xemacs-beta

diff lisp/packages/edit-faces.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
line wrap: on
line diff
--- a/lisp/packages/edit-faces.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/packages/edit-faces.el	Mon Aug 13 08:46:35 2007 +0200
@@ -57,11 +57,12 @@
   ;; auto-show-mode is too confusing in this mode
   (setq auto-show-mode nil)
   (setq	mode-popup-menu edit-faces-menu)
-  (if current-menubar
-      (progn
-	(set (make-local-variable 'current-menubar)
-	     (copy-sequence current-menubar))
-	(add-submenu nil edit-faces-menu))))
+  (if (featurep 'menubar)
+      (if current-menubar
+	  (progn
+	    (set (make-local-variable 'current-menubar)
+		 (copy-sequence current-menubar))
+	    (add-submenu nil edit-faces-menu)))))
 
 (let ((map edit-faces-mode-map))
   (define-key map "<" 'ef-smaller)