gforth/gforth.el - diff

Return to gforth.el CVS log

Up to [gforth] / gforth

version 1.72, 2007/02/22 19:37:06	version 1.73, 2007/08/17 22:00:14
Line 61	Line 61
(progn (string-match "^[0-9]+" emacs-version)	(progn (string-match "^[0-9]+" emacs-version)
(string-to-int (match-string 0 emacs-version)))))	(string-to-int (match-string 0 emacs-version)))))

	;; Code ripped from `subr.el' for compatability with Emacs versions
	;; prior to 20.1
	(eval-when-compile
(defun forth-emacs-older (major minor)	(defun forth-emacs-older (major minor)
(or (< emacs-major-version major)	(or (< emacs-major-version major)
(and (= emacs-major-version major) (< emacs-minor-version minor))))	(and (= emacs-major-version major) (< emacs-minor-version minor))))

;; Code ripped from `subr.el' for compatability with Emacs versions
;; prior to 20.1
(eval-when-compile
(if (forth-emacs-older 20 1)	(if (forth-emacs-older 20 1)
(progn	(progn
(defmacro when (cond &rest body)	(defmacro when (cond &rest body)
Line 79	Line 79

;; `no-error' argument of require not supported in Emacs versions	;; `no-error' argument of require not supported in Emacs versions
;; prior to 20.4 :-(	;; prior to 20.4 :-(
	(eval-and-compile
(defun forth-require (feature)	(defun forth-require (feature)
(condition-case err (require feature) (error nil)))	(condition-case err (require feature) (error nil))))

(require 'font-lock)	(require 'font-lock)