]> code.delx.au - gnu-emacs/blobdiff - lisp/textmodes/sgml-mode.el
*** empty log message ***
[gnu-emacs] / lisp / textmodes / sgml-mode.el
index 1028bb3122bd1cb912d416b84611962f51549abd..c62721270fbae9ef8609fa983658425bcc2f8894 100644 (file)
@@ -111,8 +111,6 @@ 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)
     (let ((c 127)
          (map (nth 1 map)))
       (while (< (setq c (1+ c)) 256)
@@ -208,7 +206,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)))