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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; Copyright (C) 1991-2002 Lysator Academic Computer Association.
;;;;;
;;;;; This file is part of the LysKOM Emacs LISP client.
;;;;;
;;;;; LysKOM is free software; you can redistribute it and/or modify it
;;;;; under the terms of the GNU General Public License as published by
;;;;; the Free Software Foundation; either version 2, or (at your option)
;;;;; any later version.
;;;;;
;;;;; LysKOM is distributed in the hope that it will be useful, but WITHOUT
;;;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;;;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
;;;;; for more details.
;;;;;
;;;;; You should have received a copy of the GNU General Public License
;;;;; along with LysKOM; see the file COPYING. If not, write to
;;;;; Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
;;;;; or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
;;;;; MA 02139, USA.
;;;;;
;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se.
;;;;;
;;;; ================================================================
;;;; ================================================================
;;;;
;;;; File: header.el
;;;;
;;;; Code that needs to go before everything else
;;;;
;;; Check the version of Emacs when compiling
;;;
;;; If the version of Emacs is too old, signal an error.
;;; We require Gnu Emacs 19.34 or 20.3 or XEmacs 21.1.
(eval-and-compile
(if (or (not (boundp 'emacs-major-version))
(not (boundp 'emacs-minor-version))
(and (string-match "XEmacs" (emacs-version))
(or (< emacs-major-version 20)
(and (= emacs-major-version 20)
(< emacs-minor-version 4))
(and (= emacs-major-version 21)
(< emacs-minor-version 1))))
(and (not (string-match "XEmacs" (emacs-version)))
(or (< emacs-major-version 19)
(and (= emacs-major-version 19)
(< emacs-minor-version 34))
(and (= emacs-major-version 20)
(< emacs-minor-version 2)))))
(error "Emacs 19.34, XEmacs 21.1 or later, or Emacs 20.2 or later is required")))
(cond ((or (not (boundp 'emacs-major-version))
(not (boundp 'emacs-minor-version))
(< emacs-major-version (eval-when-compile emacs-major-version)))
(error "LysKOM was compiled for a newer version of Emacs"))
((and (eq (eval-when-compile emacs-major-version) 19)
(> emacs-major-version 19))
(error "A LysKOM client compiled for Emacs 19 will not run in newer versions of Emacs.")))
;;; Check some basic misfeatures that are still all too common
(eval-and-compile
(defmacro lyskom-detect-read-kbd-macro-bug ()
`(and (stringp (read-kbd-macro "<SPC>"))
(string-equal (read-kbd-macro "<SPC>") "<SPC>")))
(let ((libraries-to-try '("edmacro")))
(while libraries-to-try
(if (lyskom-detect-read-kbd-macro-bug)
(progn (condition-case nil
(load-library (car libraries-to-try))
(error nil))
(setq libraries-to-try (cdr libraries-to-try)))
(setq libraries-to-try nil)))
(if (lyskom-detect-read-kbd-macro-bug)
(let ((elc-location (locate-library "macedit.elc"))
(el-location (locate-library "macedit.el"))
(elz-location (locate-library "macedit.el.gz")))
(cond ((or el-location elc-location)
(message "\
You probably have a file named macedit.elc in Emacs' load path.
This file is included in some versions of the calc package and
is no longer required as the functions that it provides are
also provided by more modern packages.
You will need to remove macedit.el and all references to it
from Emacs. These are the files you need to remove:
%s
To fully remove macedit you will also have to remove any
autoloads that refer to it. These may be found in a file
named auto-autoloads.elc (or auto-autoloads.el), located
in the same directory as macedit or in a file named
loaddefs.el, located elsewhere.
With Gnu Emacs you may be successful in removing references
by using the command update-autoloads-from-directories.
"
(mapconcat (lambda (x) (or x ""))
(list elc-location el-location elz-location)
"\n"))
(error "Unable to run or compile due to obsolete macedit package."))
(t
(message "\
Your definition of read-kbd-macro appears to be obsolete. This
is usually caused by having a package called macedit in Emacs
load path, but I am unable to find this package. LysKOM cannot
run with your version of read-kbd-macro.
")
(error "Unable to run or compile due to obsolete definition of read-kbd-macro.")))))))
(eval-and-compile
(defvar lyskom-debug-compile (eval-when-compile (getenv "LYSKOM_DEBUG_COMPILE"))))
|
