dev-lang/gforth/files/gforth.el-gentoo.patch


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