+ type (nth 2 this)
+ ;; Don't complain about missing variables which are
+ ;; irrelevant to this platform.
+ native-p (save-match-data
+ (cond
+ ((string-match "\\`dos-" (symbol-name symbol))
+ (eq system-type 'ms-dos))
+ ((string-match "\\`w32-" (symbol-name symbol))
+ (eq system-type 'windows-nt))
+ (t t))))