Mercurial > hg > xemacs-beta

diff lisp/packages/func-menu.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents a145efe76779
children 9f59509498e1
line wrap: on
line diff
--- a/lisp/packages/func-menu.el	Mon Aug 13 09:18:41 2007 +0200
+++ b/lisp/packages/func-menu.el	Mon Aug 13 09:19:45 2007 +0200
@@ -385,9 +385,10 @@
 (defun fume-add-submenu (menu-name submenu before)
   (apply fume-add-submenu (fume-munge-menu-args menu-name submenu before)))
 
+;; this seems to really be `should I try to change the menubar'
 (defconst fume-not-tty
-  (or (and (fboundp 'device-type) (not (eq 'tty (device-type))))
-      (and (symbol-value 'window-system) t))) ; obsolete test
+  (or (featurep 'menubar)     ;; XEmacs
+      (featurep 'menu-bar)))  ;; GNU Emacs  
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;  Customizable Variables  ;;;;;;;;;;;;;;;;;;;;;;;;