Mercurial > hg > xemacs-beta

comparison lisp/viper/viper-util.el @ 104:cf808b4c4290 r20-1b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b4
author cvs
date Mon, 13 Aug 2007 09:16:51 +0200
parents 6a378aca36af
children 0132846995bd
comparison
equal deleted inserted replaced
103:30eda07fe280 104:cf808b4c4290
50 (require 'viper-init) 50 (require 'viper-init)
51 51
52 52
53 53
54 ;;; XEmacs support 54 ;;; XEmacs support
55
56 ;; A fix for NeXT Step
57 ;; Should probably be eliminated in later versions.
58 (if (and (vip-window-display-p) (eq (vip-device-type) 'ns))
59 (progn
60 (fset 'x-display-color-p (symbol-function 'ns-display-color-p))
61 (fset 'x-color-defined-p (symbol-function 'ns-color-defined-p))
62 ))
55 63
56 (if vip-xemacs-p 64 (if vip-xemacs-p
57 (progn 65 (progn
58 (fset 'vip-read-event (symbol-function 'next-command-event)) 66 (fset 'vip-read-event (symbol-function 'next-command-event))
59 (fset 'vip-make-overlay (symbol-function 'make-extent)) 67 (fset 'vip-make-overlay (symbol-function 'make-extent))
82 (fset 'vip-iconify (symbol-function 'iconify-or-deiconify-frame))) 90 (fset 'vip-iconify (symbol-function 'iconify-or-deiconify-frame)))
83 (cond ((vip-has-face-support-p) 91 (cond ((vip-has-face-support-p)
84 (fset 'vip-get-face (symbol-function 'internal-get-face)) 92 (fset 'vip-get-face (symbol-function 'internal-get-face))
85 (fset 'vip-color-defined-p (symbol-function 'x-color-defined-p)) 93 (fset 'vip-color-defined-p (symbol-function 'x-color-defined-p))
86 ))) 94 )))
95
87 96
88 (fset 'vip-characterp 97 (fset 'vip-characterp
89 (symbol-function 98 (symbol-function
90 (if vip-xemacs-p 'characterp 'integerp))) 99 (if vip-xemacs-p 'characterp 'integerp)))
91 100