diff options
author | Karl Heuer <kwzh@gnu.org> | 1996-07-21 19:34:15 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1996-07-21 19:34:15 +0000 |
commit | 794038dc93f04d822611917d536cc243c4d2d4b8 (patch) | |
tree | 873aac901cfd511642c230204c54f277d44915dd /lisp | |
parent | b72c1e697dc86dad5ea06886d755e3c59e70d10e (diff) | |
download | emacs-794038dc93f04d822611917d536cc243c4d2d4b8.tar.gz |
(vip-ms-style-os-p, vip-vms-os-p): Moved here from viper.el.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/emulation/viper-util.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index 7cc64938254..a63517e5624 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el @@ -57,6 +57,11 @@ (defun vip-window-display-p () (and (vip-device-type) (not (memq (vip-device-type) '(tty stream))))) +(defvar vip-ms-style-os-p (memq system-type '(ms-dos windows-nt windows-95)) + "Tells if Emacs is running under an MS-style OS: ms-dos, windows-nt, W95.") +(defvar vip-vms-os-p (memq system-type '(vax-vms axp-vms)) + "Tells if Emacs is running under VMS.") + (defvar vip-force-faces nil "If t, Viper will think that it is running on a display that supports faces. This is provided as a temporary relief for users of face-capable displays |