cgit.sxemacs.org Git - sxemacs/blob - src/fns.c

   1 /* Random utility Lisp functions.
   2    Copyright (C) 1985, 86, 87, 93, 94, 95 Free Software Foundation, Inc.
   3    Copyright (C) 1995, 1996 Ben Wing.
   4
   5 This file is part of SXEmacs
   6
   7 SXEmacs is free software: you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation, either version 3 of the License, or
  10 (at your option) any later version.
  11
  12 SXEmacs is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  19
  20
  21 /* Synched up with: Mule 2.0, FSF 19.30. */
  22
  23 /* This file has been Mule-ized. */
  24
  25 /* Note: FSF 19.30 has bool vectors.  We have bit vectors. */
  26
  27 /* Hacked on for Mule by Ben Wing, December 1994, January 1995. */
  28
  29 #include <config.h>
  30
  31 /* Note on some machines this defines `vector' as a typedef,
  32    so make sure we don't use that name in this file.  */
  33 #undef vector
  34 #define vector *****
  35
  36 #include "lisp.h"
  37
  38 #include "sysfile.h"
  39
  40 #include "buffer.h"
  41 #include "bytecode.h"
  42 #include "ui/device.h"
  43 #include "events/events.h"
  44 #include "extents.h"
  45 #include "ui/frame.h"
  46 #include "systime.h"
  47 #include "ui/insdel.h"
  48 #include "lstream.h"
  49 /* for the categorial views */
  50 #include "category.h"
  51 #include "seq.h"
  52 /* for all the map* funs */
  53 #include "map.h"
  54
  55 \f
  56 /* NOTE: This symbol is also used in lread.c */
  57 #define FEATUREP_SYNTAX
  58
  59 Lisp_Object Qstring_lessp, Qstring_greaterp;
  60 Lisp_Object Qidentity;
  61
  62 static int internal_old_equal(Lisp_Object, Lisp_Object, int);
  63 Lisp_Object safe_copy_tree(Lisp_Object arg, Lisp_Object vecp, int depth);
  64 int internal_equalp(Lisp_Object, Lisp_Object, int);
  65
  66 static Lisp_Object mark_bit_vector(Lisp_Object obj)
  67 {