[Emacs-diffs] Changes to emacs/src/coding.c

[Kenichi Handa]

Index: emacs/src/coding.c
diff -c emacs/src/coding.c:1.291 emacs/src/coding.c:1.292
*** emacs/src/coding.c:1.291    Mon Sep  1 11:45:52 2003
--- emacs/src/coding.c  Mon Oct  6 21:29:12 2003
***************
*** 366,371 ****
--- 366,375 ----
  Lisp_Object Qstart_process, Qopen_network_stream;
  Lisp_Object Qtarget_idx;
  
+ /* If a symbol has this property, evaluate the value to define the
+    symbol as a coding system.  */
+ Lisp_Object Qcoding_system_define_form;
+ 
  Lisp_Object Vselect_safe_coding_system_function;
  
  int coding_system_require_warning;
***************
*** 6375,6381 ****
       (coding_system)
       Lisp_Object coding_system;
  {
!   CHECK_SYMBOL (coding_system);
    if (!NILP (Fcoding_system_p (coding_system)))
      return coding_system;
    while (1)
--- 6379,6392 ----
       (coding_system)
       Lisp_Object coding_system;
  {
!   Lisp_Object define_form;
! 
!   define_form = Fget (coding_system, Qcoding_system_define_form);
!   if (! NILP (define_form))
!     {
!       Fput (coding_system, Qcoding_system_define_form, Qnil);
!       safe_eval (define_form);
!     }
    if (!NILP (Fcoding_system_p (coding_system)))
      return coding_system;
    while (1)
***************
*** 7594,7599 ****
--- 7605,7613 ----
  
    Qutf_8 = intern ("utf-8");
    staticpro (&Qutf_8);
+ 
+   Qcoding_system_define_form = intern ("coding-system-define-form");
+   staticpro (&Qcoding_system_define_form);
  
    defsubr (&Scoding_system_p);
    defsubr (&Sread_coding_system);