* xselect.c (symbol_to_x_atom, x_get_foreign_selection): Use

SYMBOL_NAME and XSTRING instead of XSYMBOL and name field.

diff --git a/src/ChangeLog b/src/ChangeLog
index 961264c0278255b2d0afc9b3c3f455f53a9da7ee..c7640fa91bd87bffb0e17171ff0f7c694e514dcf 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,69 @@
+2002-05-20  Ken Raeburn  <raeburn@gnu.org>
+
+       Change symbol structure to contain a lisp object for the symbol
+       name:
+       * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
+       object field named "xname".
+       (SYMBOL_NAME): New macro.
+       * abbrev.c (write_abbrev): Use SYMBOL_NAME instead of XSYMBOL and
+       name field.
+       * alloc.c (Fmake_symbol): Set symbol xname field instead of name.
+       (mark_object, gc_sweep): Use symbol xname field and XSTRING
+       instead of name field.
+       * buffer.c (buffer_slot_type_mismatch): Use XSTRING and
+       SYMBOL_NAME instead of XSYMBOL and name field.
+       * callint.c (Fcall_interactively): Use XSTRING and SYMBOL_NAME
+       instead of XSYMBOL and name field.
+       * charset.c (Fdefine_charset, Fdeclare_equiv_charset): Use XSTRING
+       and SYMBOL_NAME instead of XSYMBOL and name field.
+       * coding.c (Fread_coding_system, code_convert_region1)
+       (code_convert_string1, code_convert_string_norecord)
+       (Ffind_operation_coding_system): Use SYMBOL_NAME instead of
+       XSYMBOL and name field.
+       * data.c (Fkeywordp, Fsymbol_name, store_symval_forwarding) 
+       (Fmake_variable_buffer_local, Fmake_local_variable) 
+       (Fmake_variable_frame_local): Use SYMBOL_NAME and XSTRING instead
+       of XSYMBOL and name field.
+       * editfns.c (Fformat): Use SYMBOL_NAME and XSTRING instead of
+       XSYMBOL and name field.
+       * emacs.c (shut_down_emacs) [#if 0]: Use SYMBOL_NAME and XSTRING
+       instead of XSYMBOL and name field.
+       * eval.c (do_autoload): Use SYMBOL_NAME and XSTRING instead of
+       XSYMBOL and name field.
+       * fns.c (Fstring_equal, Fstring_lessp, Frequire, sxhash): Use
+       SYMBOL_NAME and XSTRING instead of XSYMBOL and name field.
+       * fontset.c (Fset_fontset_font): Use SYMBOL_NAME and XSTRING
+       instead of XSYMBOL and name field.
+       * keyboard.c (echo_char, record_char, parse_modifiers_uncached) 
+       (parse_modifiers, apply_modifiers, Fevent_convert_list) 
+       (parse_solitary_modifier, Fexecute_extended_command): Use
+       SYMBOL_NAME and XSTRING instead of XSYMBOL and name field.
+       * keymap.c (silly_event_symbol_error, Fsingle_key_description) 
+       (Fdescribe_buffer_bindings): Use SYMBOL_NAME and XSTRING instead
+       of XSYMBOL and name field.
+       (describe_command, describe_translation): Use SYMBOL_NAME and
+       assignment instead of XSYMBOL and name field and XSETSTRING.
+       * lread.c (Fintern_soft, oblookup): Use SYMBOL_NAME and XSTRING
+       instead of XSYMBOL and name field.
+       (Funintern): Use SYMBOL_NAME and assignment instead of XSYMBOL and
+       name field and XSETSTRING.
+       * macfns.c (parse_image_spec): Use SYMBOL_NAME and XSTRING instead
+       of XSYMBOL and name field.
+       * minibuf.c (Fread_command, Fread_variable): Use SYMBOL_NAME and
+       assignment instead of XSYMBOL and name field and XSETSTRING.
+       * print.c (print_error_message, print_object): Use SYMBOL_NAME and
+       XSTRING instead of XSYMBOL and name field.
+       * process.c (set_socket_options, Fsignal_process): Use SYMBOL_NAME
+       and XSTRING instead of XSYMBOL and name field.
+       * w32fns.c (parse_image_spec, w32_parse_hot_key): Use SYMBOL_NAME
+       and XSTRING instead of XSYMBOL and name field.
+       * xfaces.c (merge_face_vector_with_property): Use SYMBOL_NAME and
+       XSTRING instead of XSYMBOL and name field.
+       * xfns.c (parse_image_spec): Use SYMBOL_NAME and XSTRING instead
+       of XSYMBOL and name field.
+       * xselect.c (symbol_to_x_atom, x_get_foreign_selection): Use
+       SYMBOL_NAME and XSTRING instead of XSYMBOL and name field.
+
 2002-05-19  Ken Raeburn  <raeburn@gnu.org>
 
        * lisp.h (LISP_MAKE_RVALUE): Delete disabled version, making XCAR

diff --git a/src/xselect.c b/src/xselect.c
index c95cc211c1dfe1786aa92f62e5895b1a65445e3d..a92943c5381fcb3cf1e650c53b022517107efcf2 100644 (file)
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -200,9 +200,9 @@ symbol_to_x_atom (dpyinfo, display, sym)
 #endif
   if (!SYMBOLP (sym)) abort ();
 
-  TRACE1 (" XInternAtom %s", (char *) XSYMBOL (sym)->name->data);
+  TRACE1 (" XInternAtom %s", (char *) XSTRING (SYMBOL_NAME (sym))->data);
   BLOCK_INPUT;
-  val = XInternAtom (display, (char *) XSYMBOL (sym)->name->data, False);
+  val = XInternAtom (display, (char *) XSTRING (SYMBOL_NAME (sym))->data, False);
   UNBLOCK_INPUT;
   return val;
 }
@@ -1272,7 +1272,7 @@ x_get_foreign_selection (selection_symbol, target_type)
   if (NILP (XCAR (reading_selection_reply)))
     error ("Timed out waiting for reply from selection owner");
   if (EQ (XCAR (reading_selection_reply), Qlambda))
-    error ("No `%s' selection", XSYMBOL (selection_symbol)->name->data);
+    error ("No `%s' selection", XSTRING (SYMBOL_NAME (selection_symbol))->data);
 
   /* Otherwise, the selection is waiting for us on the requested property.  */
   return