From: Dave Love <fx@gnu.org>
Date: Wed, 17 Sep 2003 19:21:10 +0000 (+0000)
Subject: (Fread_coding_system): Fix arg of XSETSTRING.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1829
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a31810840dad98cc0c5902565c37fb4bd7408255;p=emacs.git

(Fread_coding_system): Fix arg of XSETSTRING.
(Fset_coding_system_priority): Doc fix.
---

diff --git a/src/coding.c b/src/coding.c
index c3804630d72..982aaac1c1e 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6692,7 +6692,7 @@ If the user enters null input, return second argument DEFAULT-CODING-SYSTEM.  */
 {
   Lisp_Object val;
   if (SYMBOLP (default_coding_system))
-    XSETSTRING (default_coding_system, SYMBOL_NAME (default_coding_system));
+    XSETSTRING (default_coding_system, XPNTR (SYMBOL_NAME (default_coding_system)));
   val = Fcompleting_read (prompt, Vcoding_system_alist, Qnil,
 			  Qt, Qnil, Qcoding_system_history,
 			  default_coding_system, Qnil);
@@ -7873,7 +7873,9 @@ DEFUN ("set-coding-system-priority", Fset_coding_system_priority,
        Sset_coding_system_priority, 0, MANY, 0,
        doc: /* Assign higher priority to the coding systems given as arguments.
 If multiple coding systems belongs to the same category,
-all but the first one are ignored.  */)
+all but the first one are ignored.
+
+usage: (set-coding-system-priority ...)  */)
      (nargs, args)
      int nargs;
      Lisp_Object *args;