Mercurial > hg > xemacs-beta

diff lisp/utils/facemenu.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children
line wrap: on
line diff
--- a/lisp/utils/facemenu.el	Mon Aug 13 10:03:54 2007 +0200
+++ b/lisp/utils/facemenu.el	Mon Aug 13 10:04:58 2007 +0200
@@ -783,9 +783,10 @@
 (defun facemenu-insert-menu-entry (menu before-entry name function)
   "Insert menu item with name NAME and associated function FUNCTION
 into menu MENU before entry BEFORE-ENTRY."
-  (while (not (eq (cadr menu) before-entry))
-    (setq menu (cdr menu)))
-  (setcdr menu (cons (vector name function t) (cdr menu))))
+  (when (featurep 'menubar)
+    (while (not (eq (cadr menu) before-entry))
+      (setq menu (cdr menu)))
+    (setcdr menu (cons (vector name function t) (cdr menu)))))
 
 (defun facemenu-add-new-face (face)
   "Add a FACE to the appropriate Face menu.