/[emacs]/emacs/src/coding.c
ViewVC logotype

Diff of /emacs/src/coding.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.289.2.1 by handa, Mon Sep 8 12:48:10 2003 UTC revision 1.289.2.2 by fx, Wed Sep 17 19:21:10 2003 UTC
# Line 6692  If the user enters null input, return se Line 6692  If the user enters null input, return se
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);
# Line 7873  DEFUN ("set-coding-system-priority", Fse Line 7873  DEFUN ("set-coding-system-priority", Fse
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;

Legend:
Removed from v.1.289.2.1  
changed lines
  Added in v.1.289.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26