aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-09-25 07:45:15 +0000
committerRichard M. Stallman1996-09-25 07:45:15 +0000
commit8028cf8aadcc3be3d2cbe7b88a026d09b9e50033 (patch)
tree4a0fbe16843bf7fe3b331d3ec143b81020e9c6a2
parentb53ce41df657a9dce8f7740deefdc00bcd261e84 (diff)
downloademacs-8028cf8aadcc3be3d2cbe7b88a026d09b9e50033.tar.gz
emacs-8028cf8aadcc3be3d2cbe7b88a026d09b9e50033.zip
(vip-window-display-p): Don't treat MS-DOS as a windowed display.
-rw-r--r--lisp/emulation/viper-util.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 09e2787ccad..70daa478bae 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -55,7 +55,7 @@
55 (device-type (selected-device)))) 55 (device-type (selected-device))))
56;; in XEmacs: device-type is tty on tty and stream in batch. 56;; in XEmacs: device-type is tty on tty and stream in batch.
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 pc)))))
59 59
60(defvar vip-ms-style-os-p (memq system-type '(ms-dos windows-nt windows-95)) 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.") 61 "Tells if Emacs is running under an MS-style OS: ms-dos, windows-nt, W95.")