Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
383 (list fume-menu-path menu-name submenu before)))) 383 (list fume-menu-path menu-name submenu before))))
384 384
385 (defun fume-add-submenu (menu-name submenu before) 385 (defun fume-add-submenu (menu-name submenu before)
386 (apply fume-add-submenu (fume-munge-menu-args menu-name submenu before))) 386 (apply fume-add-submenu (fume-munge-menu-args menu-name submenu before)))
387 387
388 ;; this seems to really be `should I try to change the menubar'
388 (defconst fume-not-tty 389 (defconst fume-not-tty
389 (or (and (fboundp 'device-type) (not (eq 'tty (device-type)))) 390 (or (featurep 'menubar) ;; XEmacs
390 (and (symbol-value 'window-system) t))) ; obsolete test 391 (featurep 'menu-bar))) ;; GNU Emacs
391 392
392 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 393 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
393 ;;;;;;;;;;;;;;;;;;;;;;;;;; Customizable Variables ;;;;;;;;;;;;;;;;;;;;;;;; 394 ;;;;;;;;;;;;;;;;;;;;;;;;;; Customizable Variables ;;;;;;;;;;;;;;;;;;;;;;;;
394 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 395 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
395 396