aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaroly Lorentey2004-07-10 22:37:50 +0000
committerKaroly Lorentey2004-07-10 22:37:50 +0000
commit916aa4a70459e01d6a7a05cc9bee67cdcd98fe71 (patch)
treedfbeeda367549fbb8609552148a00601f6f1887a
parent1eceabe3040fd1c0a089967db3f1019dcef56cdc (diff)
downloademacs-916aa4a70459e01d6a7a05cc9bee67cdcd98fe71.tar.gz
emacs-916aa4a70459e01d6a7a05cc9bee67cdcd98fe71.zip
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
-rw-r--r--lisp/emulation/viper-util.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 5e533e5f545..0f3b8916095 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -100,10 +100,9 @@
100 (fset 'viper-int-to-char (symbol-function 'identity)) 100 (fset 'viper-int-to-char (symbol-function 'identity))
101 (if (viper-window-display-p) 101 (if (viper-window-display-p)
102 (fset 'viper-iconify (symbol-function 'iconify-or-deiconify-frame))) 102 (fset 'viper-iconify (symbol-function 'iconify-or-deiconify-frame)))
103 (cond ((viper-has-face-support-p) 103 (fset 'viper-get-face (symbol-function 'internal-get-face))
104 (fset 'viper-get-face (symbol-function 'internal-get-face)) 104 (fset 'viper-color-defined-p (symbol-function 'x-color-defined-p))
105 (fset 'viper-color-defined-p (symbol-function 'x-color-defined-p)) 105 )
106 )))
107 ) 106 )
108 107
109 108