# HG changeset patch
# User Karoly Lorentey <lorentey@elte.hu>
# Date 1089499070 0
# Node ID 257f5492d9587caa640d29cc95fd9a1f641b19d8
# Parent  dbb0d508babe0644c9162505f031881e021dc871
Prevent the previous bug from reappearing later.

* lisp/emulation/viper-util.el: Unconditionally fset viper-get-face and
  viper-color-defined-p under Emacs.


git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-215

diff -r dbb0d508babe -r 257f5492d958 lisp/emulation/viper-util.el
--- a/lisp/emulation/viper-util.el	Sat Jul 10 22:26:28 2004 +0000
+++ b/lisp/emulation/viper-util.el	Sat Jul 10 22:37:50 2004 +0000
@@ -100,10 +100,9 @@
    (fset 'viper-int-to-char (symbol-function 'identity))
    (if (viper-window-display-p)
        (fset 'viper-iconify (symbol-function 'iconify-or-deiconify-frame)))
-   (cond ((viper-has-face-support-p)
-	  (fset 'viper-get-face (symbol-function 'internal-get-face))
-	  (fset 'viper-color-defined-p (symbol-function 'x-color-defined-p))
-	  )))
+   (fset 'viper-get-face (symbol-function 'internal-get-face))
+   (fset 'viper-color-defined-p (symbol-function 'x-color-defined-p))
+          )
  )