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.