guess

; -*-emacs-lisp-*-
;;; guess emacs type

(defun guess ()
  (princ
   (cond
    ((string-match "XEmacs" emacs-version)
     (if (< emacs-major-version 21)
	 "xemacs20"
       "xemacs21"))
    ((fboundp 'nemacs-version) "nemacs")
    ((string-match "^2.[0-9]" mule-version) "mule2")
    ((string-match "^3.[0-9]" mule-version) "mule3")
    ((string-match "^4.[0-9]" mule-version) "mule4")
    ((string-match "^5.[0-9]" mule-version) "mule5")
    ((string-match "^2[2-9].[0-9]" emacs-version) "mule6")
    (t "mule1"))))