- (equal (device-type) 'x))
- ;; Code which applies only when running emacs under X goes here.
- ;; (We check whether the function `device-type' exists
- ;; before using it. In versions before 19.12, there
- ;; was no such function. If it doesn't exist, we
- ;; simply assume we're running under X -- versions before
- ;; 19.12 only supported X.)
+ (equal (device-type) 'x)
+ (equal (device-type) 'mswindows))
+ ;; Code which applies only when running emacs under X or
+ ;; MicroSoft Windows goes here. (We check whether the
+ ;; function `device-type' exists before using it. In
+ ;; versions before 19.12, there was no such function.
+ ;; If it doesn't exist, we simply assume we're running
+ ;; under X -- versions before 19.12 only supported X.)