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