[go: up one dir, main page]

File: guess

package info (click to toggle)
t-code 2%3A2.3.1-2.1
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 2,572 kB
  • ctags: 721
  • sloc: lisp: 10,356; sh: 3,060; perl: 748; makefile: 155
file content (16 lines) | stat: -rw-r--r-- 459 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
; -*-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")
    (t "mule1"))))