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