Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilcompat.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children b82b59fe008d
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
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 --