104 |
(define-key map "\"" 'sgml-name-self)) |
(define-key map "\"" 'sgml-name-self)) |
105 |
(when (memq ?' sgml-specials) |
(when (memq ?' sgml-specials) |
106 |
(define-key map "'" 'sgml-name-self))) |
(define-key map "'" 'sgml-name-self))) |
107 |
(define-key map (vector (make-char 'latin-iso8859-1)) |
(dotimes (i 96) |
108 |
'sgml-maybe-name-self) |
(define-key map (vector (encode-char (+ i 32) 'latin-iso8859-1)) |
109 |
|
'sgml-maybe-name-self)) |
110 |
(let ((c 127) |
(let ((c 127) |
111 |
(map (nth 1 map))) |
(map (nth 1 map))) |
112 |
(while (< (setq c (1+ c)) 256) |
(while (< (setq c (1+ c)) 256) |
192 |
(let ((table (make-char-table 'sgml-table)) |
(let ((table (make-char-table 'sgml-table)) |
193 |
(i 32) |
(i 32) |
194 |
elt) |
elt) |
195 |
(while (< i 256) |
(while (< i 128) |
196 |
(setq elt (aref sgml-char-names i)) |
(setq elt (aref sgml-char-names i)) |
197 |
(if elt (aset table (make-char 'latin-iso8859-1 i) elt)) |
(if elt (aset table (make-char 'latin-iso8859-1 i) elt)) |
198 |
(setq i (1+ i))) |
(setq i (1+ i))) |