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