Mercurial > emacs

comparison lisp/emulation/viper-util.el @ 16329:08514f491f33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vip-window-display-p): Don't treat MS-DOS as a windowed display.
author Richard M. Stallman <rms@gnu.org>
date Wed, 25 Sep 1996 07:45:15 +0000
parents b2fae8abc5b0
children beb94a5271e2
comparison
equal deleted inserted replaced
16328:5aff0b539ae0 16329:08514f491f33
53 (if vip-emacs-p 53 (if vip-emacs-p
54 window-system 54 window-system
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.")
62 (defvar vip-vms-os-p (memq system-type '(vax-vms axp-vms)) 62 (defvar vip-vms-os-p (memq system-type '(vax-vms axp-vms))
63 "Tells if Emacs is running under VMS.") 63 "Tells if Emacs is running under VMS.")