Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 8fc7fe29b841
children 25f70ba0133c
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
149 nil)) 149 nil))
150 150
151 (defun hm--html-is-one-element-tag-p (tag-name) 151 (defun hm--html-is-one-element-tag-p (tag-name)
152 "Returns t, if the tag with the tag-name is a one element tag." 152 "Returns t, if the tag with the tag-name is a one element tag."
153 (assoc :hm--html-one-element-tag 153 (assoc :hm--html-one-element-tag
154 (cdr (assoc* tag-name hm--html-tag-name-alist :test 'string=)))) 154 (cdr (assoc* (downcase tag-name)
155 hm--html-tag-name-alist
156 :test 'string=))))
155 157
156 (defun hm--html-calculate-indent-according-to-previous-tags () 158 (defun hm--html-calculate-indent-according-to-previous-tags ()
157 "Calculate the indent according to the previous tags in this line. 159 "Calculate the indent according to the previous tags in this line.
158 If no tags are found, then nil is returned." 160 If no tags are found, then nil is returned."
159 (save-excursion 161 (save-excursion