diff options
| author | Karl Heuer | 1996-07-21 19:34:15 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-07-21 19:34:15 +0000 |
| commit | 74fb2f32dbcc78df31c20bd62a9fe040af9b4ca4 (patch) | |
| tree | 04f925b38155e1f6b877d87242b1ed8f08d42e1e | |
| parent | e8417bb000216ccf357b3b7f602338e7701f2838 (diff) | |
| download | emacs-74fb2f32dbcc78df31c20bd62a9fe040af9b4ca4.tar.gz emacs-74fb2f32dbcc78df31c20bd62a9fe040af9b4ca4.zip | |
(vip-ms-style-os-p, vip-vms-os-p): Moved here from viper.el.
| -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 @@ | |||
| 57 | (defun vip-window-display-p () | 57 | (defun vip-window-display-p () |
| 58 | (and (vip-device-type) (not (memq (vip-device-type) '(tty stream))))) | 58 | (and (vip-device-type) (not (memq (vip-device-type) '(tty stream))))) |
| 59 | 59 | ||
| 60 | (defvar vip-ms-style-os-p (memq system-type '(ms-dos windows-nt windows-95)) | ||
| 61 | "Tells if Emacs is running under an MS-style OS: ms-dos, windows-nt, W95.") | ||
| 62 | (defvar vip-vms-os-p (memq system-type '(vax-vms axp-vms)) | ||
| 63 | "Tells if Emacs is running under VMS.") | ||
| 64 | |||
| 60 | (defvar vip-force-faces nil | 65 | (defvar vip-force-faces nil |
| 61 | "If t, Viper will think that it is running on a display that supports faces. | 66 | "If t, Viper will think that it is running on a display that supports faces. |
| 62 | This is provided as a temporary relief for users of face-capable displays | 67 | This is provided as a temporary relief for users of face-capable displays |