Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-misc.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 360340f9fd5f
children 7d55a9ba150c
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
374 (vm-multiple-frames-possible-p)) 374 (vm-multiple-frames-possible-p))
375 375
376 (defun vm-menu-support-possible-p () 376 (defun vm-menu-support-possible-p ()
377 (or (and (boundp 'window-system) 377 (or (and (boundp 'window-system)
378 (or (eq window-system 'x) 378 (or (eq window-system 'x)
379 (eq window-system 'ns) ;; NextStep
379 (eq window-system 'win32))) 380 (eq window-system 'win32)))
380 (and (fboundp 'device-type) (eq (device-type) 'x)))) 381 (and (fboundp 'device-type) (eq (device-type) 'x))))
381 382
382 (defun vm-toolbar-support-possible-p () 383 (defun vm-toolbar-support-possible-p ()
383 (and (vm-xemacs-p) 384 (and (vm-xemacs-p)