(sgml-mode-map): Use encode-char instead
authorKenichi Handa <handa@m17n.org>
Fri, 1 Mar 2002 02:29:13 +0000 (02:29 +0000)
committerKenichi Handa <handa@m17n.org>
Fri, 1 Mar 2002 02:29:13 +0000 (02:29 +0000)
of make-char.
(sgml-char-names-table): Iteration limit fixed.

lisp/textmodes/sgml-mode.el

index 6472cc79960e602299e8f019140841719ea7f72c..ad99ed7fecb6ad5bca50eb8c6f50c2d06dc66c89 100644 (file)
@@ -104,8 +104,9 @@ This takes effect when first loading the sgml-mode library.")
         (define-key map "\"" 'sgml-name-self))
       (when (memq ?' sgml-specials)
         (define-key map "'" 'sgml-name-self)))
-    (define-key map (vector (make-char 'latin-iso8859-1))
-      'sgml-maybe-name-self)
+    (dotimes (i 96)
+      (define-key map (vector (encode-char (+ i 32) 'latin-iso8859-1))
+       'sgml-maybe-name-self))
     (let ((c 127)
          (map (nth 1 map)))
       (while (< (setq c (1+ c)) 256)
@@ -191,7 +192,7 @@ This takes effect when first loading the sgml-mode library.")
   (let ((table (make-char-table 'sgml-table))
        (i 32)
        elt)
-    (while (< i 256)
+    (while (< i 128)
       (setq elt (aref sgml-char-names i))
       (if elt (aset table (make-char 'latin-iso8859-1 i) elt))
       (setq i (1+ i)))