(Qutf_8): New.

(syms_of_coding): Intern it.
This commit is contained in:
Dave Love 2003-06-02 18:49:29 +00:00
parent 3db9e31e5e
commit ecf488bc25

View file

@ -399,6 +399,8 @@ Lisp_Object Qcoding_system_p, Qcoding_system_error;
end-of-line format. */
Lisp_Object Qemacs_mule, Qraw_text;
Lisp_Object Qutf_8;
/* Coding-systems are handed between Emacs Lisp programs and C internal
routines by the following three variables. */
/* Coding-system for reading files and receiving data from process. */
@ -7584,6 +7586,9 @@ syms_of_coding ()
Qraw_text = intern ("raw-text");
staticpro (&Qraw_text);
Qutf_8 = intern ("utf-8");
staticpro (&Qutf_8);
defsubr (&Scoding_system_p);
defsubr (&Sread_coding_system);
defsubr (&Sread_non_nil_coding_system);