git.chise.org Git - chise/xemacs-chise.git-/blob - src/general.c

   1 /* Commonly-used symbols
   2    Copyright (C) 1995 Sun Microsystems.
   3    Copyright (C) 1995, 1996, 2000 Ben Wing.
   4
   5 This file is part of XEmacs.
   6
   7 XEmacs is free software; you can redistribute it and/or modify it
   8 under the terms of the GNU General Public License as published by the
   9 Free Software Foundation; either version 2, or (at your option) any
  10 later version.
  11
  12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  15 for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with XEmacs; see the file COPYING.  If not, write to
  19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20 Boston, MA 02111-1307, USA.  */
  21
  22 /* Synched up with: Not in FSF. */
  23
  24 /* See general-slots.h.
  25 */
  26
  27 #include <config.h>
  28 #include "lisp.h"
  29
  30 #define SYMBOL(fou) Lisp_Object fou
  31 #define SYMBOL_KEYWORD(la_cle_est_fou) Lisp_Object la_cle_est_fou
  32 #define SYMBOL_GENERAL(tout_le_monde, est_fou) Lisp_Object tout_le_monde
  33
  34 #include "general-slots.h"
  35
  36 #undef SYMBOL
  37 #undef SYMBOL_KEYWORD
  38 #undef SYMBOL_GENERAL
  39
  40 void
  41 syms_of_general (void)
  42 {
  43 #define SYMBOL(loco) DEFSYMBOL (loco)
  44 #define SYMBOL_KEYWORD(meshugeneh) DEFKEYWORD (meshugeneh)
  45 #define SYMBOL_GENERAL(vachement, fou) defsymbol (&vachement, fou)
  46
  47 #include "general-slots.h"
  48
  49 #undef SYMBOL
  50 #undef SYMBOL_KEYWORD
  51 #undef SYMBOL_GENERAL
  52 }