--- 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