File: guess.el

package info (click to toggle)
t-code 1%3A2.0beta9-1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,632 kB
  • ctags: 507
  • sloc: lisp: 7,176; sh: 488; ansic: 440; perl: 270; makefile: 116
file content (14 lines) | stat: -rw-r--r-- 395 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
;;; guess emacs type

(defun guess-version ()
  (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")
    (t "mule1"))))