git.chise.org Git - chise/xemacs-chise.git.1/blob - src/select.h

   1 /* Generic select data structures functions
   2    Copyright (C) 1999 Andy Piper
   3
   4 This file is part of XEmacs.
   5
   6 XEmacs is free software; you can redistribute it and/or modify it
   7 under the terms of the GNU General Public License as published by the
   8 Free Software Foundation; either version 2, or (at your option) any
   9 later version.
  10
  11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with XEmacs; see the file COPYING.  If not, write to
  18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 /* Synched up with: Not in FSF. */
  22
  23 #ifndef _XEMACS_SELECT_H_
  24 #define _XEMACS_SELECT_H_
  25
  26 extern Lisp_Object QPRIMARY, QSECONDARY, QSTRING, QINTEGER, QCLIPBOARD, QTIMESTAMP,
  27   QTEXT, QDELETE, QMULTIPLE, QINCR, QEMACS_TMP, QTARGETS, QATOM, QNULL,
  28   QATOM_PAIR, QCOMPOUND_TEXT;
  29
  30 /* This is an association list whose elements are of the form
  31      ( selection-name selection-value selection-timestamp )
  32    selection-name is a lisp symbol, whose name is the name of an X Atom.
  33    selection-value is the value that emacs owns for that selection.
  34      It may be any kind of Lisp object.
  35    selection-timestamp is the time at which emacs began owning this selection,
  36      as a cons of two 16-bit numbers (making a 32 bit time).
  37    If there is an entry in this alist, then it can be assumed that emacs owns
  38     that selection.
  39    The only (eq) parts of this list that are visible from elisp are the
  40     selection-values.
  41  */
  42 extern Lisp_Object Vselection_alist;
  43
  44 /* "Selection owner couldn't convert selection" */
  45 extern Lisp_Object Qselection_conversion_error;
  46
  47 Lisp_Object get_local_selection (Lisp_Object selection_symbol, Lisp_Object target_type);
  48 void handle_selection_clear (Lisp_Object selection_symbol);
  49
  50 #endif