Mercurial > hg > xemacs-beta

comparison lisp/packages/func-menu.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents 441bb1e64a06
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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