(coding-system-get): New function.

[chise/xemacs-chise.git] / lisp / mule / mule-category.el

diff --git a/lisp/mule/mule-category.el b/lisp/mule/mule-category.el
index 17258cb..deb9efc 100644 (file)
--- a/lisp/mule/mule-category.el
+++ b/lisp/mule/mule-category.el
@@ -245,9 +245,11 @@ Each element is a list of a charset, a designator, and maybe a doc string.")
 
 (let (i l)
   (define-category ?a "ASCII character set.")
+  (define-category ?l "Latin-1 through Latin-5 character set")
   (setq i 32)
   (while (< i 127)
     (modify-category-entry i ?a)
+    (modify-category-entry i ?l)
     (setq i (1+ i)))
   (setq l predefined-category-list)
   (while l