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