comparison src/coding.c @ 89519:040a08a2a879

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

89518:c9f7a2f363ca

     (prompt, default_coding_system)
     Lisp_Object prompt, default_coding_system;
{
  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);
  return (SCHARS (val) == 0 ? Qnil : Fintern (val, Qnil));
}

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.  */)
     (nargs, args)
     int nargs;
     Lisp_Object *args;
{
  int i, j;

89519:040a08a2a879

     (prompt, default_coding_system)
     Lisp_Object prompt, default_coding_system;
{
  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);
  return (SCHARS (val) == 0 ? Qnil : Fintern (val, Qnil));
}

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.

usage: (set-coding-system-priority ...)  */)
     (nargs, args)
     int nargs;
     Lisp_Object *args;
{
  int i, j;