Mercurial > emacs
changeset 88415:8fb7bc8f8acc
(sgml-mode-map): Use encode-char instead
of make-char.
(sgml-char-names-table): Iteration limit fixed.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 01 Mar 2002 02:29:13 +0000 |
| parents | fad0f879877f |
| children | 2bff8007f2d2 |
| files | lisp/textmodes/sgml-mode.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/sgml-mode.el Fri Mar 01 02:28:29 2002 +0000 +++ b/lisp/textmodes/sgml-mode.el Fri Mar 01 02:29:13 2002 +0000 @@ -104,8 +104,9 @@ (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 @@ (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)))