Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-vars.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 360340f9fd5f
children 8619ce7e4c50
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
588 588
589 Note that under FSF Emacs any fonts you use must be the same size 589 Note that under FSF Emacs any fonts you use must be the same size
590 as your default font. XEmacs does not have this limitation.") 590 as your default font. XEmacs does not have this limitation.")
591 591
592 (defvar vm-mime-button-face 592 (defvar vm-mime-button-face
593 (cond ((fboundp 'find-face) 593 (cond ((and (fboundp 'find-face)
594 (fboundp 'device-type))
594 (or (and (not (eq (device-type) 'tty)) (find-face 'gui-button-face) 595 (or (and (not (eq (device-type) 'tty)) (find-face 'gui-button-face)
595 'gui-button-face) 596 'gui-button-face)
596 (and (find-face 'bold-italic) 'bold-italic))) 597 (and (find-face 'bold-italic) 'bold-italic)))
597 ((fboundp 'facep) 598 ((fboundp 'facep)
598 (or (and (facep 'gui-button-face) 'gui-button-face) 599 (or (and (facep 'gui-button-face) 'gui-button-face)