changeset 20922:3ae81bc17b19

(sgml-mode-common): Downcase key for assoc so upper-case markup works. (sgml-attributes, sgml-tag-help): Likewise.
author Dave Love <fx@gnu.org>
date Tue, 17 Feb 1998 20:08:22 +0000
parents ccde9a52e7c1
children c6e733c90ed8
files lisp/textmodes/sgml-mode.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/sgml-mode.el	Tue Feb 17 19:44:25 1998 +0000
+++ b/lisp/textmodes/sgml-mode.el	Tue Feb 17 20:08:22 1998 +0000
@@ -1,6 +1,6 @@
 ;;; sgml-mode.el --- SGML- and HTML-editing modes
 
-;; Copyright (C) 1992, 1995, 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1995, 1996, 1998 Free Software Foundation, Inc.
 
 ;; Author: James Clark <jjc@jclark.com>
 ;; Adapted-By: ESR; Daniel.Pfeiffer@Informatik.START.dbp.de
@@ -303,7 +303,8 @@
 	      `((1 (,(concat "<\\("
 			     (mapconcat 'car sgml-tag-face-alist "\\|")
 			     "\\)\\([ \t].+\\)?>\\(.+\\)</\\1>")
-		    3 (cdr (assoc (match-string 1) ',sgml-tag-face-alist)))))))
+		    3 (cdr (assoc (downcase (match-string 1))
+                                  ',sgml-tag-face-alist)))))))
   (setq indent-line-function 'indent-relative-maybe
 	;; A start or end tag by itself on a line separates a paragraph.
 	;; This is desirable because SGML discards a newline that appears
@@ -539,7 +540,7 @@
 						    alist)))))
 	    (if (string= "" attribute)
 		(setq i 0)
-	      (sgml-value (assoc attribute alist))
+	      (sgml-value (assoc (downcase attribute) alist))
 	      (setq i (1- i))))
 	  (if (eq (preceding-char) ? )
 	      (delete-backward-char 1)))
@@ -574,9 +575,9 @@
       (error "No tag selected"))
   (setq tag (downcase tag))
   (message "%s"
-	   (or (cdr (assoc tag sgml-tag-help))
+	   (or (cdr (assoc (downcase tag) sgml-tag-help))
 	       (and (eq (aref tag 0) ?/)
-		    (cdr (assoc (substring tag 1) sgml-tag-help)))
+		    (cdr (assoc (downcase (substring tag 1)) sgml-tag-help)))
 	       "No description available")))