comparison src/coding.c @ 51406:3c675181c3d8

(Qutf_8): New. (syms_of_coding): Intern it.
author Dave Love <fx@gnu.org>
date Mon, 02 Jun 2003 18:49:29 +0000
parents 8da3b8a0ca4f
children 28be64986453
comparison
equal deleted inserted replaced
51405:c3e680aa1a51 51406:3c675181c3d8
396 Lisp_Object Qcoding_system_p, Qcoding_system_error; 396 Lisp_Object Qcoding_system_p, Qcoding_system_error;
397 397
398 /* Coding system emacs-mule and raw-text are for converting only 398 /* Coding system emacs-mule and raw-text are for converting only
399 end-of-line format. */ 399 end-of-line format. */
400 Lisp_Object Qemacs_mule, Qraw_text; 400 Lisp_Object Qemacs_mule, Qraw_text;
401
402 Lisp_Object Qutf_8;
401 403
402 /* Coding-systems are handed between Emacs Lisp programs and C internal 404 /* Coding-systems are handed between Emacs Lisp programs and C internal
403 routines by the following three variables. */ 405 routines by the following three variables. */
404 /* Coding-system for reading files and receiving data from process. */ 406 /* Coding-system for reading files and receiving data from process. */
405 Lisp_Object Vcoding_system_for_read; 407 Lisp_Object Vcoding_system_for_read;
7582 staticpro (&Qemacs_mule); 7584 staticpro (&Qemacs_mule);
7583 7585
7584 Qraw_text = intern ("raw-text"); 7586 Qraw_text = intern ("raw-text");
7585 staticpro (&Qraw_text); 7587 staticpro (&Qraw_text);
7586 7588
7589 Qutf_8 = intern ("utf-8");
7590 staticpro (&Qutf_8);
7591
7587 defsubr (&Scoding_system_p); 7592 defsubr (&Scoding_system_p);
7588 defsubr (&Sread_coding_system); 7593 defsubr (&Sread_coding_system);
7589 defsubr (&Sread_non_nil_coding_system); 7594 defsubr (&Sread_non_nil_coding_system);
7590 defsubr (&Scheck_coding_system); 7595 defsubr (&Scheck_coding_system);
7591 defsubr (&Sdetect_coding_region); 7596 defsubr (&Sdetect_coding_region);