diff lisp/hm--html-menus/hm--html-indentation.el @ 24:4103f0995bd7 r19-15b95

Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children 25f70ba0133c
line wrap: on
line diff
--- a/lisp/hm--html-menus/hm--html-indentation.el	Mon Aug 13 08:50:31 2007 +0200
+++ b/lisp/hm--html-menus/hm--html-indentation.el	Mon Aug 13 08:51:03 2007 +0200
@@ -151,7 +151,9 @@
 (defun hm--html-is-one-element-tag-p (tag-name)
   "Returns t, if the tag with the tag-name is a one element tag."
   (assoc :hm--html-one-element-tag
-	 (cdr (assoc* tag-name hm--html-tag-name-alist :test 'string=))))
+	 (cdr (assoc* (downcase tag-name)
+		      hm--html-tag-name-alist
+		      :test 'string=))))
 
 (defun hm--html-calculate-indent-according-to-previous-tags ()
   "Calculate the indent according to the previous tags in this line.