/* NeXT/Open/GNUstep / MacOSX Cocoa selection processing for emacs.
- Copyright (C) 1993, 1994, 2005, 2006, 2008
+ Copyright (C) 1993, 1994, 2005, 2006, 2008, 2009
Free Software Foundation, Inc.
This file is part of GNU Emacs.
GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu)
*/
+/* This should be the first include, as it may set up #defines affecting
+ interpretation of even the system includes. */
#include "config.h"
+
#include "lisp.h"
#include "nsterm.h"
#include "termhooks.h"
static Lisp_Object Vselection_alist;
static Lisp_Object Vselection_converter_alist;
-/* 23: new */
static Lisp_Object Qforeign_selection;
NSString *NXSecondaryPboard;
if (EQ (sym, QPRIMARY)) return NSGeneralPboard;
if (EQ (sym, QSECONDARY)) return NXSecondaryPboard;
if (EQ (sym, QTEXT)) return NSStringPboardType;
- return [NSString stringWithUTF8String: XSTRING (XSYMBOL (sym)->xname)->data];
+ return [NSString stringWithUTF8String: SDATA (XSYMBOL (sym)->xname)];
}
return clean_local_selection_data (AREF (obj, 0));
copy = Fmake_vector (make_number (size), Qnil);
for (i = 0; i < size; i++)
- AREF (copy, i) = clean_local_selection_data (AREF (obj, i));
+ ASET (copy, i, clean_local_selection_data (AREF (obj, i)));
return copy;
}
CHECK_STRING (str);
- utfStr = XSTRING (str)->data;
+ utfStr = SDATA (str);
nsStr = [NSString stringWithUTF8String: utfStr];
if (gtype == nil)
\(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD').");
Vns_lost_selection_hooks = Qnil;
-/* 23: { */
Qforeign_selection = intern ("foreign-selection");
staticpro (&Qforeign_selection);
-/* } */
-
}
// arch-tag: 39d1dde7-06a6-49ff-95a7-0e7af12d2218