git.chise.org Git - chise/xemacs-chise.git.1/blob - modules/example/purified.c

   1 #include <config.h>
   2 #include "lisp.h"
   3 #include "emacsfns.h"
   4
   5 DEFUN ("purifiedp", Fpurifiedp, 1, 1, 0, /*
   6 */
   7  (obj))
   8 {
   9         return purified(obj) ? Qt : Qnil;
  10 }
  11
  12 void
  13 syms_of()
  14 {
  15         DEFSUBR(Fpurifiedp);
  16 }