[Emacs-diffs] Changes to emacs/src/coding.c [emacs-unicode-2]

[Dave Love]

Index: emacs/src/coding.c
diff -c emacs/src/coding.c:1.289.2.1 emacs/src/coding.c:1.289.2.2
*** emacs/src/coding.c:1.289.2.1        Mon Sep  8 08:48:10 2003
--- emacs/src/coding.c  Wed Sep 17 15:21:10 2003
***************
*** 6692,6698 ****
  {
    Lisp_Object val;
    if (SYMBOLP (default_coding_system))
!     XSETSTRING (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);
--- 6692,6698 ----
  {
    Lisp_Object val;
    if (SYMBOLP (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,7879 ****
         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.  */)
       (nargs, args)
       int nargs;
       Lisp_Object *args;
--- 7873,7881 ----
         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.
! 
! usage: (set-coding-system-priority ...)  */)
       (nargs, args)
       int nargs;
       Lisp_Object *args;