1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
;;; -*- Mode: Emacs-Lisp -*-
;;; ilcompat.el --
;;; This file is part of ILISP.
;;; Version: 5.8
;;;
;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
;;; 1993, 1994 Ivan Vasquez
;;; 1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
;;; 1996 Marco Antoniotti and Rick Campbell
;;;
;;; Other authors' names for which this Copyright notice also holds
;;; may appear later in this file.
;;;
;;; Send mail to 'ilisp-request@naggum.no' to be included in the
;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
;;; mailing list were bugs and improvements are discussed.
;;;
;;; ILISP is freely redistributable under the terms found in the file
;;; COPYING.
;;;============================================================================
;;; Global definitions/declarations
(defconst +ilisp-emacs-version-id+
(cond ((string-match "XEmacs" emacs-version)
'xemacs)
((string-match "Lucid" emacs-version)
(if (string-match "^19.[0-7][^0-9]" emacs-version)
'lucid-19
'lucid-19-new))
((string-match "^19" emacs-version)
'fsf-19)
(t 'fsf-18))
"The version of Emacs ILISP is running in.
Declared as '(member fsf-19 fsf-19 lucid-19 lucid-19-new xemacs).
Set in ilcompat.el.")
(defconst +ilisp-emacs-minor-version-number+
(cond ((eq +ilisp-emacs-version-id+ 'fsf-18) 59)
((or (eq +ilisp-emacs-version-id+ 'lucid-19)
(eq +ilisp-emacs-version-id+ 'lucid-19-new)
)
12) ; Does emacs-minor-version work?
((eq +ilisp-emacs-version-id+ 'xemacs) 14)
(t emacs-minor-version)))
;;;============================================================================
;;; Code
(cond ((or (eq +ilisp-emacs-version-id+ 'lucid-19)
(eq +ilisp-emacs-version-id+ 'lucid-19-new))
(load "illuc19"))
((eq +ilisp-emacs-version-id+ 'xemacs) (load "ilxemacs"))
((eq +ilisp-emacs-version-id+ 'fsf-19) (load "ilfsf19"))
((eq +ilisp-emacs-version-id+ 'fsf-18) (load "ilfsf18"))
)
;;;============================================================================
;;; Epilogue
(provide 'compat)
;;; end of file -- compat.el --
|
