Mercurial > hg > xemacs-beta

comparison src/fns.c @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents cca96a509cfe
children 538048ae2ab8
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
42 #include "device.h" 42 #include "device.h"
43 #include "events.h" 43 #include "events.h"
44 #include "extents.h" 44 #include "extents.h"
45 #include "frame.h" 45 #include "frame.h"
46 #include "systime.h" 46 #include "systime.h"
47
48 /* NOTE: This symbol is also used in lread.c */
49 #define FEATUREP_SYNTAX
47 50
48 Lisp_Object Qstring_lessp; 51 Lisp_Object Qstring_lessp;
49 Lisp_Object Qidentity; 52 Lisp_Object Qidentity;
50 53
51 static Lisp_Object mark_bit_vector (Lisp_Object, void (*) (Lisp_Object)); 54 static Lisp_Object mark_bit_vector (Lisp_Object, void (*) (Lisp_Object));
3318 } 3321 }
3319 3322
3320 3323
3321 Lisp_Object Vfeatures; 3324 Lisp_Object Vfeatures;
3322 3325
3326 #ifndef FEATUREP_SYNTAX
3323 DEFUN ("featurep", Ffeaturep, 1, 1, 0, /* 3327 DEFUN ("featurep", Ffeaturep, 1, 1, 0, /*
3324 Return t if FEATURE is present in this Emacs. 3328 Return t if FEATURE is present in this Emacs.
3325 Use this to conditionalize execution of lisp code based on the 3329 Use this to conditionalize execution of lisp code based on the
3326 presence or absence of emacs or environment extensions. 3330 presence or absence of emacs or environment extensions.
3327 Use `provide' to declare that a feature is available. 3331 Use `provide' to declare that a feature is available.
3330 (feature)) 3334 (feature))
3331 { 3335 {
3332 CHECK_SYMBOL (feature); 3336 CHECK_SYMBOL (feature);
3333 return NILP (Fmemq (feature, Vfeatures)) ? Qnil : Qt; 3337 return NILP (Fmemq (feature, Vfeatures)) ? Qnil : Qt;
3334 } 3338 }
3339 #endif
3335 3340
3336 DEFUN ("provide", Fprovide, 1, 1, 0, /* 3341 DEFUN ("provide", Fprovide, 1, 1, 0, /*
3337 Announce that FEATURE is a feature of the current Emacs. 3342 Announce that FEATURE is a feature of the current Emacs.
3338 This function updates the value of the variable `features'. 3343 This function updates the value of the variable `features'.
3339 */ 3344 */
3465 DEFSUBR (Fnconc); 3470 DEFSUBR (Fnconc);
3466 DEFSUBR (Fmapcar); 3471 DEFSUBR (Fmapcar);
3467 DEFSUBR (Fmapc_internal); 3472 DEFSUBR (Fmapc_internal);
3468 DEFSUBR (Fmapconcat); 3473 DEFSUBR (Fmapconcat);
3469 DEFSUBR (Fload_average); 3474 DEFSUBR (Fload_average);
3475 #ifndef FEATUREP_SYNTAX
3470 DEFSUBR (Ffeaturep); 3476 DEFSUBR (Ffeaturep);
3477 #endif
3471 DEFSUBR (Frequire); 3478 DEFSUBR (Frequire);
3472 DEFSUBR (Fprovide); 3479 DEFSUBR (Fprovide);
3473 } 3480 }
3474 3481
3475 void 3482 void