6692 |
{ |
{ |
6693 |
Lisp_Object val; |
Lisp_Object val; |
6694 |
if (SYMBOLP (default_coding_system)) |
if (SYMBOLP (default_coding_system)) |
6695 |
XSETSTRING (default_coding_system, SYMBOL_NAME (default_coding_system)); |
XSETSTRING (default_coding_system, XPNTR (SYMBOL_NAME (default_coding_system))); |
6696 |
val = Fcompleting_read (prompt, Vcoding_system_alist, Qnil, |
val = Fcompleting_read (prompt, Vcoding_system_alist, Qnil, |
6697 |
Qt, Qnil, Qcoding_system_history, |
Qt, Qnil, Qcoding_system_history, |
6698 |
default_coding_system, Qnil); |
default_coding_system, Qnil); |
7873 |
Sset_coding_system_priority, 0, MANY, 0, |
Sset_coding_system_priority, 0, MANY, 0, |
7874 |
doc: /* Assign higher priority to the coding systems given as arguments. |
doc: /* Assign higher priority to the coding systems given as arguments. |
7875 |
If multiple coding systems belongs to the same category, |
If multiple coding systems belongs to the same category, |
7876 |
all but the first one are ignored. */) |
all but the first one are ignored. |
7877 |
|
|
7878 |
|
usage: (set-coding-system-priority ...) */) |
7879 |
(nargs, args) |
(nargs, args) |
7880 |
int nargs; |
int nargs; |
7881 |
Lisp_Object *args; |
Lisp_Object *args; |