File: guess

package info (click to toggle)
t-code 2%3A2.3.1-3.5
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 2,928 kB
  • ctags: 731
  • sloc: lisp: 10,355; perl: 748; sh: 384; makefile: 134
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"))))