From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 14 Aug 2000 12:43:55 +0000 (+0000)
Subject: (xml-parse-tag, xml-parse-attlist): Do not downcase
X-Git-Tag: emacs-pretest-21.0.90~2334
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6eb6c4c1967757c5b915424d392676ee75665a92;p=emacs.git

(xml-parse-tag, xml-parse-attlist): Do not downcase
identifiers, since XML is case sensitive
---

diff --git a/lisp/xml.el b/lisp/xml.el
index 11b731634a0..4a738107410 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -63,10 +63,6 @@
 ;;                       | nil
 ;;    string     ::= "..."
 ;;
-;; Since XML is case insensitive, tag_name is always converted to lower-cases.
-;; tag_name is then converted to a symbol (this is not a string, so that the
-;; list takes less space in memory and is faster to traverse).
-;;
 ;; Some macros are provided to ease the parsing of this list
 
 ;;; Code:
@@ -209,7 +205,7 @@ Returns one of:
    ;;  opening tag
    ((looking-at "<\\([^/> \t]+\\)")
     (let* ((node-name (match-string 1))
-	   (children (list (intern (downcase node-name))))
+	   (children (list (intern node-name)))
 	   pos)
       (goto-char (match-end 1))
 
@@ -274,7 +270,7 @@ Leaves the point on the first non-blank character after the tag."
 	name)
     (skip-chars-forward " \t\n")
     (while (looking-at "\\([a-zA-Z_:][a-zA-Z0-9.-_:]*\\)[ \t\n]*=[ \t\n]*")
-      (set 'name (intern (downcase (match-string 1))))
+      (set 'name (intern (match-string 1)))
       (goto-char (match-end 0))
 
       ;; Do we have a string between quotes (or double-quotes),
@@ -355,7 +351,7 @@ The DTD must end before the position END in the current buffer."
        ((looking-at
 	 "[\t \n]*<!ELEMENT[ \t\n]+\\([a-zA-Z0-9.%;]+\\)[ \t\n]+\\([^>]+\\)>")
 
-	(setq element (intern (downcase (match-string-no-properties 1)))
+	(setq element (intern (match-string-no-properties 1))
 	      type    (match-string-no-properties 2))
 	(set 'end-pos (match-end 0))