From f5027deb921e5b792fe5a9dbe35c97cf75a1e067 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 1 Mar 2002 02:29:13 +0000 Subject: [PATCH] (sgml-mode-map): Use encode-char instead of make-char. (sgml-char-names-table): Iteration limit fixed. --- lisp/textmodes/sgml-mode.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 6472cc79960..ad99ed7fecb 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -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))) -- 2.39.5