diff options
| -rw-r--r-- | lisp/emulation/viper-util.el | 2 |
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.") |