[Emacs-diffs] Changes to emacs/lisp/international/code-pages.el

[Kenichi Handa]

Index: emacs/lisp/international/code-pages.el
diff -c emacs/lisp/international/code-pages.el:1.29 
emacs/lisp/international/code-pages.el:1.30
*** emacs/lisp/international/code-pages.el:1.29 Mon Jul  4 17:22:27 2005
--- emacs/lisp/international/code-pages.el      Fri Aug  5 01:14:08 2005
***************
*** 216,221 ****
--- 216,222 ----
  
  ;; Fixme: Do better for mode-line mnemonics?
  
+ ;;;###autoload(autoload-coding-system 'cp437 '(require 'code-pages))
  (cp-make-coding-system
   cp437
   [?\Ç
***************
*** 347,352 ****
--- 348,354 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp737 '(require 'code-pages))
  (cp-make-coding-system
   cp737
   [?\Α
***************
*** 479,484 ****
--- 481,487 ----
    ?\Â ])
  (coding-system-put 'cp737 'mime-charset nil) ; not in IANA list
  
+ ;;;###autoload(autoload-coding-system 'cp775 '(require 'code-pages))
  (cp-make-coding-system
   cp775
   [?\Ć
***************
*** 610,615 ****
--- 613,619 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp850 '(require 'code-pages))
  (cp-make-coding-system
   cp850
   [?\Ç
***************
*** 741,746 ****
--- 745,751 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp851 '(require 'code-pages))
  (cp-make-coding-system
   cp851
   [?\Ç
***************
*** 872,877 ****
--- 877,883 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp852 '(require 'code-pages))
  (cp-make-coding-system
   cp852
   [?\Ç
***************
*** 1003,1008 ****
--- 1009,1015 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp855 '(require 'code-pages))
  (cp-make-coding-system
   cp855
   [?\ђ
***************
*** 1134,1139 ****
--- 1141,1147 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp857 '(require 'code-pages))
  (cp-make-coding-system
   cp857
   [?\Ç
***************
*** 1265,1270 ****
--- 1273,1279 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp860 '(require 'code-pages))
  (cp-make-coding-system
   cp860
   [?\Ç
***************
*** 1396,1401 ****
--- 1405,1411 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp861 '(require 'code-pages))
  (cp-make-coding-system
   cp861
   [?\Ç
***************
*** 1527,1532 ****
--- 1537,1543 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp862 '(require 'code-pages))
  (cp-make-coding-system
   cp862
   [?\א
***************
*** 1658,1663 ****
--- 1669,1675 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp863 '(require 'code-pages))
  (cp-make-coding-system
   cp863
   [?\Ç
***************
*** 1789,1794 ****
--- 1801,1807 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp864 '(require 'code-pages))
  (cp-make-coding-system
   cp864
   [?\°
***************
*** 1920,1925 ****
--- 1933,1939 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp865 '(require 'code-pages))
  (cp-make-coding-system
   cp865
   [?\Ç
***************
*** 2051,2056 ****
--- 2065,2071 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp866 '(require 'code-pages))
  (cp-make-coding-system
   cp866
   [?\А
***************
*** 2184,2189 ****
--- 2199,2205 ----
   "CP866 (Cyrillic)."
   ?A)
  
+ ;;;###autoload(autoload-coding-system 'cp869 '(require 'code-pages))
  (cp-make-coding-system
   cp869
   [nil
***************
*** 2315,2320 ****
--- 2331,2337 ----
    ?\■
    ?\Â ])
  
+ ;;;###autoload(autoload-coding-system 'cp874 '(require 'code-pages))
  (cp-make-coding-system
   cp874
   [?\€
***************
*** 3374,3379 ****
--- 3391,3397 ----
    ?\₫
    ?\ÿ])
  
+ ;;;###autoload(autoload-coding-system 'next '(require 'code-pages))
  (cp-make-coding-system
   next
   [?\Â 
***************
*** 3506,3511 ****
--- 3524,3530 ----
    nil]
   "NeXTstep encoding." ?N)
  
+ ;;;###autoload(autoload-coding-system 'koi8-t '(require 'code-pages))
  (cp-make-coding-system
   koi8-t                                       ; used by glibc for tg_TJ
   [?\қ
***************
*** 3774,3779 ****
--- 3793,3799 ----
  
  ;; Unicode-based alternative which has the possible advantage of
  ;; having its relative sparseness specified.
+ ;;;###autoload(autoload-coding-system 'iso-8859-6 '(require 'code-pages))
  (cp-make-coding-system
   ;; The base system uses arabic-iso-8bit, but that's not a MIME charset.
   iso-8859-6
***************
*** 4189,4194 ****
--- 4209,4215 ----
   nil ?G)
  (coding-system-put 'georgian-ps 'mime-charset nil) ; not in IANA list
  
+ ;;;###autoload(autoload-coding-system 'cp720 '(require 'code-pages))
  ;; From http://www.microsoft.com/globaldev/reference/oem/720.htm
  (cp-make-coding-system
   cp720
***************
*** 4322,4327 ****
--- 4343,4349 ----
    ?\Â ])
  (coding-system-put 'cp720 'mime-charset nil) ; not in IANA list
  
+ ;;;###autoload(autoload-coding-system 'cp1125 '(require 'code-pages))
  ;; http://oss.software.ibm.com/cvs/icu/charset/data/ucm/ibm-1125_P100-2000.ucm
  (cp-make-coding-system
   cp1125
***************
*** 4461,4466 ****
--- 4483,4489 ----
  ;; Suggested by Anton Zinoviev <address@hidden>: Bulgarian DOS
  ;; codepage.  Table at
  ;; <URL:http://czyborra.com/charsets/bulgarian-mik.txt.gz>.
+ ;;;###autoload(autoload-coding-system 'mik '(require 'code-pages))
  (cp-make-coding-system
   mik
   [?А ?Б ?В ?Г ?Д ?Е ?Ж ?З ?И ?Й ?К ?Л ?М ?Н ?О ?П ?Р ?С ?Т 
?У ?Ф ?Х ?Ц