From: Dave Love Date: Tue, 17 Feb 1998 20:08:22 +0000 (+0000) Subject: (sgml-mode-common): Downcase key for X-Git-Tag: emacs-20.3~2152 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa7a8f0ee89966ccdb3bb72b1002b28c5d73781d;p=emacs.git (sgml-mode-common): Downcase key for assoc so upper-case markup works. (sgml-attributes, sgml-tag-help): Likewise. --- diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index bc2902e0d9f..eff08965f21 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -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 ;; Adapted-By: ESR; Daniel.Pfeiffer@Informatik.START.dbp.de @@ -303,7 +303,8 @@ varables of same name)." `((1 (,(concat "<\\(" (mapconcat 'car sgml-tag-face-alist "\\|") "\\)\\([ \t].+\\)?>\\(.+\\)") - 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 @@ If QUIET, do not print a message when there are no attributes for TAG." 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 @@ With prefix argument, only self insert." (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")))