diff options
Diffstat (limited to 'dev-lang/gforth/files/gforth.el-gentoo.patch')
| -rw-r--r-- | dev-lang/gforth/files/gforth.el-gentoo.patch | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/dev-lang/gforth/files/gforth.el-gentoo.patch b/dev-lang/gforth/files/gforth.el-gentoo.patch new file mode 100644 index 000000000000..cc98537e766d --- /dev/null +++ b/dev-lang/gforth/files/gforth.el-gentoo.patch @@ -0,0 +1,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 + |