blob: cc98537e766d58f4261995c60d8bceb6bd1bdfa3 (
plain)
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
|
--- gforth-0.6.2-orig/gforth.el 2003-08-05 11:12:47.000000000 +0200
+++ gforth-0.6.2/gforth.el 2008-09-06 08:29:44.000000000 +0200
@@ -61,9 +61,10 @@
(progn (string-match "^[0-9]+" emacs-version)
(string-to-int (match-string 0 emacs-version)))))
-(defun forth-emacs-older (major minor)
- (or (< emacs-major-version major)
- (and (= emacs-major-version major) (< emacs-minor-version minor))))
+(eval-when-compile
+ (defun forth-emacs-older (major minor)
+ (or (< emacs-major-version major)
+ (and (= emacs-major-version major) (< emacs-minor-version minor)))))
;; Code ripped from `subr.el' for compatability with Emacs versions
;; prior to 20.1
@@ -79,8 +80,9 @@
;; `no-error' argument of require not supported in Emacs versions
;; prior to 20.4 :-(
-(defun forth-require (feature)
- (condition-case err (require feature) (error nil)))
+(eval-and-compile
+ (defun forth-require (feature)
+ (condition-case err (require feature) (error nil))))
(require 'font-lock)
@@ -1702,6 +1704,6 @@
(error "No current process. See variable `forth-process-buffer'"))))
) ; (memq 'comint features)
-(provide 'forth-mode)
+(provide 'gforth)
;;; gforth.el ends here
|
GitWeb
