*** orig/lisp/emulation/viper-init.el
--- mod/lisp/emulation/viper-init.el
***************
*** 97,103 ****
  (defun viper-has-face-support-p ()
    (cond ((viper-window-display-p))
  	(viper-force-faces)
! 	(viper-emacs-p (memq (viper-device-type) '(pc)))
  	(viper-xemacs-p (memq (viper-device-type) '(tty pc)))))
  
  
--- 97,103 ----
  (defun viper-has-face-support-p ()
    (cond ((viper-window-display-p))
  	(viper-force-faces)
! 	(viper-emacs-p (memq (viper-device-type) '(nil pc)))
  	(viper-xemacs-p (memq (viper-device-type) '(tty pc)))))