119 |
;;; Determine Window System, and X Server Vendor (if appropriate). |
;;; Determine Window System, and X Server Vendor (if appropriate). |
120 |
;;; |
;;; |
121 |
(defconst edt-x-emacs-p (string-match "XEmacs" emacs-version) |
(defconst edt-x-emacs-p (string-match "XEmacs" emacs-version) |
122 |
"Non-NIL if we are running XEmacs version 19, or higher.") |
"Non-nil if we are running XEmacs version 19, or higher.") |
123 |
|
|
124 |
(defconst edt-emacs-variant (if edt-x-emacs-p "xemacs" "gnu") |
(defconst edt-emacs-variant (if edt-x-emacs-p "xemacs" "gnu") |
125 |
"Indicates Emacs variant: GNU Emacs or XEmacs \(aka Lucid Emacs\).") |
"Indicates Emacs variant: GNU Emacs or XEmacs \(aka Lucid Emacs\).") |