Mercurial > emacs

changeset 15747:a0933adcee9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vip-ms-style-os-p, vip-vms-os-p): Moved here from viper.el.
author Karl Heuer <kwzh@gnu.org>
date Sun, 21 Jul 1996 19:34:15 +0000
parents d7a83c7ea12a
children fa8087fbb7f7
files lisp/emulation/viper-util.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/viper-util.el	Sun Jul 21 19:21:11 1996 +0000
+++ b/lisp/emulation/viper-util.el	Sun Jul 21 19:34:15 1996 +0000
@@ -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