Mercurial > emacs

changeset 45396:cab845213388

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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.
author Ken Raeburn <raeburn@raeburn.org>
date Mon, 20 May 2002 08:05:15 +0000
parents 89c5ebcbb7fd
children bc5d63652a0a
files src/coding.c
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/coding.c	Mon May 20 08:05:09 2002 +0000
+++ b/src/coding.c	Mon May 20 08:05:15 2002 +0000
@@ -6170,7 +6170,7 @@
 {
   Lisp_Object val;
   if (SYMBOLP (default_coding_system))
-    XSETSTRING (default_coding_system, XSYMBOL (default_coding_system)->name);
+    default_coding_system = SYMBOL_NAME (default_coding_system);
   val = Fcompleting_read (prompt, Vcoding_system_alist, Qnil,
 			  Qt, Qnil, Qcoding_system_history,
 			  default_coding_system, Qnil);
@@ -6506,7 +6506,7 @@
     return make_number (to - from);
 
   if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0)
-    error ("Invalid coding system: %s", XSYMBOL (coding_system)->name->data);
+    error ("Invalid coding system: %s", XSTRING (SYMBOL_NAME (coding_system))->data);
 
   coding.mode |= CODING_MODE_LAST_BLOCK;
   coding.src_multibyte = coding.dst_multibyte
@@ -6561,7 +6561,7 @@
     return (NILP (nocopy) ? Fcopy_sequence (string) : string);
 
   if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0)
-    error ("Invalid coding system: %s", XSYMBOL (coding_system)->name->data);
+    error ("Invalid coding system: %s", XSTRING (SYMBOL_NAME (coding_system))->data);
 
   coding.mode |= CODING_MODE_LAST_BLOCK;
   string = (encodep
@@ -6620,7 +6620,7 @@
     return string;
 
   if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0)
-    error ("Invalid coding system: %s", XSYMBOL (coding_system)->name->data);
+    error ("Invalid coding system: %s", XSTRING (SYMBOL_NAME (coding_system))->data);
 
   coding.composing = COMPOSITION_DISABLED;
   coding.mode |= CODING_MODE_LAST_BLOCK;
@@ -6865,7 +6865,7 @@
     error ("Invalid first argument");
   if (nargs < 1 + XINT (target_idx))
     error ("Too few arguments for operation: %s",
-	   XSYMBOL (operation)->name->data);
+	   XSTRING (SYMBOL_NAME (operation))->data);
   target = args[XINT (target_idx) + 1];
   if (!(STRINGP (target)
 	|| (EQ (operation, Qopen_network_stream) && INTEGERP (target))))