/[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.38 by handa, Tue Sep 14 07:55:26 2004 UTC revision 1.289.2.39 by handa, Tue Oct 12 02:40:21 2004 UTC
# Line 4914  setup_coding_system (coding_system, codi Line 4914  setup_coding_system (coding_system, codi
4914    Lisp_Object val;    Lisp_Object val;
4915    
4916    if (NILP (coding_system))    if (NILP (coding_system))
4917      coding_system = Qno_conversion;      coding_system = Qundecided;
4918    
4919    CHECK_CODING_SYSTEM_GET_ID (coding_system, coding->id);    CHECK_CODING_SYSTEM_GET_ID (coding_system, coding->id);
4920    
# Line 8155  DEFUN ("terminal-coding-system", Line 8155  DEFUN ("terminal-coding-system",
8155         doc: /* Return coding system specified for terminal output.  */)         doc: /* Return coding system specified for terminal output.  */)
8156       ()       ()
8157  {  {
8158    return CODING_ID_NAME (terminal_coding.id);    Lisp_Object coding_system;
8159    
8160      coding_system = CODING_ID_NAME (terminal_coding.id);
8161      /* For backward compatibility, return nil if it is `undecided'. */
8162      return (coding_system != Qundecided ? coding_system : Qnil);
8163  }  }
8164    
8165  DEFUN ("set-keyboard-coding-system-internal",  DEFUN ("set-keyboard-coding-system-internal",
# Line 9594  character."); Line 9598  character.");
9598      plist[15] = args[coding_arg_eol_type] = Qunix;      plist[15] = args[coding_arg_eol_type] = Qunix;
9599      args[coding_arg_plist] = Flist (16, plist);      args[coding_arg_plist] = Flist (16, plist);
9600      Fdefine_coding_system_internal (coding_arg_max, args);      Fdefine_coding_system_internal (coding_arg_max, args);
9601    
9602        plist[1] = args[coding_arg_name] = Qundecided;
9603        plist[3] = args[coding_arg_mnemonic] = make_number ('-');
9604        plist[5] = args[coding_arg_coding_type] = Qundecided;
9605        /* This is already set.
9606        /*plist[7] = args[coding_arg_ascii_compatible_p] = Qt;*/
9607        plist[8] = intern (":charset-list");
9608        plist[9] = args[coding_arg_charset_list] = Fcons (Qascii, Qnil);
9609        plist[11] = args[coding_arg_for_unibyte] = Qnil;
9610        plist[13] = build_string ("No conversion on encoding, automatic conversion on decoding.");
9611        plist[15] = args[coding_arg_eol_type] = Qnil;
9612        args[coding_arg_plist] = Flist (16, plist);
9613        Fdefine_coding_system_internal (coding_arg_max, args);
9614    }    }
9615    
9616    setup_coding_system (Qno_conversion, &keyboard_coding);    setup_coding_system (Qno_conversion, &keyboard_coding);
9617    setup_coding_system (Qno_conversion, &terminal_coding);    setup_coding_system (Qundecided, &terminal_coding);
9618    setup_coding_system (Qno_conversion, &safe_terminal_coding);    setup_coding_system (Qno_conversion, &safe_terminal_coding);
9619    
9620    {    {

Legend:
Removed from v.1.289.2.38  
changed lines
  Added in v.1.289.2.39

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