Mercurial > hg > xemacs-beta
diff src/fns.c @ 167:85ec50267440 r20-3b10
Import from CVS: tag r20-3b10
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:45:46 +0200 |
parents | 5a88923fcbfe |
children | 15872534500d |
line wrap: on
line diff
--- a/src/fns.c Mon Aug 13 09:44:44 2007 +0200 +++ b/src/fns.c Mon Aug 13 09:45:46 2007 +0200 @@ -3345,7 +3345,7 @@ return NILP (Fmemq (feature, Vfeatures)) ? Qnil : Qt; } #else -extern int emacs_major_version, emacs_minor_version; +extern Lisp_Object Vemacs_major_version, Vemacs_minor_version; DEFUN ("featurep", Ffeaturep, 1, 1, 0, /* Return non-nil if feature expression FEXP is true. @@ -3366,8 +3366,8 @@ if (featurep_emacs_version == 0.0) { - featurep_emacs_version = emacs_major_version + - (emacs_minor_version / 100.0); + featurep_emacs_version = XINT (Vemacs_major_version) + + (XINT (Vemacs_minor_version) / 100.0); } return (featurep_emacs_version >= d) ? Qt : Qnil; } @@ -3417,7 +3417,7 @@ return Fsignal(Qinvalid_read_syntax, list1 (fexp)); } } -#endif +#endif /* FEATUREP_SYNTAX */ DEFUN ("provide", Fprovide, 1, 1, 0, /* Announce that FEATURE is a feature of the current Emacs.